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Preface 


The UIS Source Code Annotator User’s Guide describes what the UIS 
Source Code Annotator is and how to use it. 


You must install the UIS Source Code Annotator on VMS V5.1 or above. 





Structure of this Manual 


This manual describes what the UIS Source code Annotator is and how to 


use it. 


This manual includes two chapters and seven appendixes. 


Chapter 1 
Chapter 2 
Appendix A 
Appendix B 
Appendix C 


Appendix D 
Appendix E 


Appendix F 
Appendix G 


Describes what the Annotator does and it’s characteristics. 
Describes how to use the Annotator. 

Presents a UISANN$ROUTINES. TABLE. 

List messages you may encounter while using the Annotator. 


Lists UIS$ routines with their equivalent Xlib routines and 
describes their functionality. 


Lists UISDC$ routines with their equivalent Xlib routines and 
describes their functionality. 


Lists HCUIS$ routines with their equivalent Xlib routines and 
describes their functionality. 


Presents two sample FORTRAN programs and a summary report. 
Presents two sample PASCAL programs and a summary report. 





Related Documents 


If you want to migrate your VWS applications to DECwindows, consult the 
appropriate documents: 


¢ UIS Source Code Annotator User’s Guide for information about using 
the source code annotator. 


¢ Using the UIS to DDIF Converter for information about using the UIS 
to DDIF Converter. 


¢ A Guide to Migrating VWS Applications to DECwindows for 
information about migrating VWS applications to DECwindows and 
for an example application. 


¢ Using the DECwindows/X11 Server for VWS for information about 
using the DECwindows/X11 Server for VWS. 


¢ VAXuisx User’s Guide for information about using the VAXuisx run- 


time library. 
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Conventions 
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If you are working with VWS, you may wish to consult the following 
documents: 


¢ VMS Workstation Software User’s Guide for information about how to 
use the workstation software. 


¢ VMS Workstation Software Graphics Programming Guide for 
information about working with application programs and using 
VMS Workstation Software graphics. 


¢ VMS Workstation Software Guide to Printing Graphics for detailed 
information about how to print hard copies from the VAXstation. 


¢ VMS Workstation Software SIGHT User’s Guide for detailed 
information about using SIGHT. 


This manual uses the following conventions in user input examples. 


Conventions and Meanings 


RETURN 


The key is not always shown in formats and examples. Assume 
that you must press the key after typing a command or other 
input to the system, unless you are instructed otherwise. 


followed by a slash and a letter means that you must type the letter 
while holding down the key. For example, means hold down 
the key and type the letter B. 


Lists 


When a format item is followed by a comma and an ellipsis (, ... ), you 
can enter a single item or a number of items separated by commas. When 
a format item is followed by a plus sign and an ellipsis (+... ), you can 
enter a single item or a number of those items connected by plus signs. 
If you enter a list (more than one item), you must enclose the list in 
parentheses. A single item need not be enclosed in parentheses. 


Optional Items 
An item enclosed in square brackets ([ ]) is optional. 


Boxes 
In examples, boxes enclose user input, such as a key 9, a key sequence 


CTRL/Z| or a parameter | PASSWORD 
Ellipsis 


A vertical ellipsis indicates that some of the format or example is not 
shown. 


| 
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The key on the LK201 terminal keyboard that performs the DELETE 
function is labeled <X]. 
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1 Introduction to the UIS Source Code Annotator 


This chapter describes the UIS Source Code Annotator (hereafter called ' 
the Annotator), what it does, the languages it uses and any restrictions 
that you may encounter when using the Annotator with VWS applications. 


The Annotator provides information you can use in when transferring your 
UIS applications to DECwindows. By passing a UIS application through 
the Annotator, you can learn which UIS$ routines have equivalent Xlib 
routines and what those routines are. You also can learn which UIS$ 
routines have no equivalent Xlib routines. You should use the Annotator 
along with A Guide to Migrating VWS Applications to DECwindows. 


NOTE: VMS Workstation Software (VWS) is only supported on VMS. 
Consequently, the Annotator is only supported on VMS. 


VWS and the Annotator are not supported on ULTRIX. 





1.1 Annotator Files 


The Annotator consists of the following four files contained in the 
SYS$SYSROOT:[SYSHLP.EXAMPLES.UISANN] directory: 


¢ UISANN.EXE - Executable image being run. 


¢ UISANNS$ROUTINES.TABLE - Routines table used for determining 
equivalences. 


e UISANNSIVP.COM - Installation verification procedure (IVP). 

¢ UISANNMSG.EXE - Message file. 

The directory also contains sample programs that the IVP uses to test the 
Annotator after the installation. You can use these sample programs if 
you want to give the Annotator a "dry run.” To see what the original files, 


annotated files, and summary reports, QIX.FOR and UISDC_HOUSE.PAS, 
should look like, refer to Appendix F and Appendix G. 


uw? 





1.2 Annotator Function 


The Annotator assists you in converting a VWS application to 
DECwindows. For any VWS application you specify, except those written 
in Ada, the Annotator opens the file and searches the code. It flags every 
UIS$, UISDC$, and HCUIS$ routine, adding a comment to each routine 
that helps you port the application to DECwindows. The Annotator then 
produces the annotated and summary output files. 


introduction to the UIS Source Code Annotator 


Note: 


The annotated file contains the original code plus comments identifying 
which UIS$, UISDC$, and HCUIS$ routines have equivalent Xlib routines 
and which ones do not. When an equivalent or similar, Xlib routine exists, 
the Annotator lists that routine or an alternate method for acquiring the 
best result. 


The Annotator creates a new version of your file with a higher 
version number. If you are concerned about comments being 
added to your file, you may want to create a second copy of your 
file before running the Annotator. However, files created by the 
Annotator will be compilable. 


In some cases, there is no equivalent routine; however, there are methods 
of producing the desired result. For more information refer to A Guide to 
Migrating VWS Applications to DECwindows. 


The annotated file is still a usable UIS application. The comments the 
Annotator places in your file do not prevent the annotated file from 
compiling successfully. After you compile the annotated file, you can use 
the resulting .OBJ file to create a usable image. 


The comments the Annotator puts into the file can be up to 125 characters 
long. If you print the annotated file on a printer or in a print mode less 
than 132 characters wide then the output may be truncated or wrapped. 
To make sure you do not lose any of the comments, you should print the 
file on a line printer or a laser printer using a landscape format. The 
command for printing in a landscape format on an LPS40 or LNO3R is: 


BS) PRINT/PARAMETER= (DATA_TYPE=ANSI, PAGE _ORIENTATION=LANDSCAPE) - 
/QUEUE=queue name filename.ext 


The command for printing on a line printer is: 


$ PRINT/QUEUE=queue name filename.ext 


The following is a sample of VWS code to be Annotated. 


C Create the display and window. Enable the window resize option. 
Cc 


CALL UISSGET_HW COLOR_INFO(’SYSSWORKSTATION’ ,, 
1 VCM_SIZE) 

VCM_SIZE=16 7 

IF (VCM SIZE .EQ. 2) GOTO 55 

VCM_SIZE = VCM SIZE/4 

IF (VCM SIZE .LT. NUM LINES) GOTO 55 
NUM_LINES = 20 


55 VCM_ID = UIS$CREATE_COLOR_MAP (VCM_ SIZE) 
VD_ID = UISS$CREATE DISPLAY (WC_X1,WC_Y1,WC_X2,WC_Y2, 
1 VP_WIDTH, VP_HEIGHT, VCM_ID) 


CALL UISSDISABLE DISPLAY LIST (VD_ID) 

CALL CREATE COLORS (VCM_SIZE, VD_ID) 

WD_ID = UISSCREATE WINDOW(VD_ID,’SYSS$WORKSTATION’ ,’QIX’) 

CALL UISS$SET RESIZE _AST(vd_id,wd_id, ENABLE WINDOW RESIZE, dummy, 
a new_abs_ x,new_abs y,vp_width,vp_ height) 
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The following example shows the same code after it has been annotated. 
Create the display and window. Enable the window resize option. 


SUIS% Information is available through a number of individual 
calls - Please see "Display Routines". 
CALL UISS$GET_HW_COLOR_INFO(’ SYSSWORKSTATION’ ,, 
1 VCM_SIZE) 
VCM_SIZE=16 
IF (VCM_SIZE .EQ. 2) GOTO 55 
VCM_SIZE = VCM_SIZE/4 
IF (VCM_SIZE .LT. NUM_LINES) GOTO 55 
NUM_LINES = 20 
c SUIS% Color maps may be created by using the XS$ALLOC_COLOR_CELLS. 
55 VCM_ID = UISS$CREATE_COLOR_MAP (VCM_ SIZE) 
C SUIS% No equivalent routine exists. 
VD_ID = UISSCREATE DISPLAY (WC_X1,WC_Y1,WC_X2,WC_Y2, 
1 VP_WIDTH, VP_HEIGHT, VCM_ID) 
Cc SUIS% X11 provides no equivalents to the UISS display list routines. 
CALL UISSDISABLE DISPLAY LIST(VD_ID) 
CALL CREATE COLORS (VCM_SIZE, VD_ID) 
Cc SUIS% Please see information on virtual displays. 
WD_ID = UISSCREATE_ WINDOW (VD_ID,’SYSS$WORKSTATION’ ,’ QIX’ ) 
Cc SUIS% There are equivalent X events. 
CALL UISSSET RESIZE AST(vd_id,wd_id, ENABLE _WINDOW_RESIZE, dummy, 
1 new abs x,new_abs y,vp_width,vp_ height) 


After the Annotator produces the annotated file, you can consult A Guide 
to Migrating VWS Applications for help in converting the VWS application 
to a DECwindows application. 


Cc 
Cc 
Cc 
Cc 


The Summary Report has the same name as the source code file, but has a 
.LOG extension. It provides the following information: 


¢ The number of UIS$, UISDC$, and HCUIS$ routines found in the 
application. 


¢ The number of routines that were valid. 


¢ The number of routines that were invalid, (routines beginning with 


UIS$, UISDC$, or HCUIS$, but not part of VWS). 


¢ The number of times each routine was called. 
This is an example of a summary report. 


CIRCLE . LOG 
Date : 11i1-MAY-90, Time : 13:20:59 


This report is the result of searching of the following files: 
CIRCLE .PAS 


searching for UIS calls within programs. A summary will 
appear at the end of this report. 
>>> Examining : DISK2: [SMITH]CIRCLE.PAS 

===x Creating : DISK2: [SMITH]}CIRCLE.PAS 


Found: 1 - HCUISSWRITE_ DISPLAY 
No equivalent routine exists. 


Found: 1 - UISSCIRCLE 
Filled circles are drawn using the X$DRAW_ARC routine. 


Found: 1 - UISSCREATE DISPLAY 
No equivalent routine exists. 
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Found: 1 - UISSDELETE_ DISPLAY 
UISSDELETE DISPLAY is similar to XS$CLOSE DISPLAY. 


* Total Lines read in : 37 


* Total UIS calls (of any type) detected : 4 
**x* Summary Information errr rrr eer em we mr nw nr er re err rer een 
* Total UIS calls (of any type) - all files : 4 


After running a file through the Annotator, you end up with three files in 
your directory: the source file, the annotated file, and the summary file. 
For example, if you ran the file QIX.FOR;3 through the Annotator, you 
would have the following files in your directory: 


¢ QIX.FOR;3 - Source file 
¢ QIX.FOR;4 - Annotated file 
¢ QIX.LOG - Summary file 





1.3 Languages the Annotator Accepts 
The Annotator accepts VWS applications written in the following 
languages: 
e BASIC 
e BLISS 
¢ COBOL 
e LISP 
e PL/I 
e VAX C 


e VAX FORTRAN 
e VAX/MACRO 
e VAX Pascal 


Note: The Annotator does not accept applications written in Ada. 





1.4 Restrictions on Using the Annotator with VWS Applications 


To use the Annotator with the VWS sample applications provided with the 
VWS kit, you must have VMS V5.1 or above installed. 


If you want to compile the two sample programs, QIX.FOR and 
UISDC_HOUSE.PAS, you will need the VAX FORTRAN and VAX Pascal 
compilers. 


14 


Pa Using the Annotator 


This chapter describes how to invoke and use the Annotator. 





2.1 Invoking the Annotator 


All the files necessary for running the Annotator can be found in 
SYS$SYSROOT:[SYSHLP.EXAMPLES.UISANN]. In addition to the 
executables, there is a table file with a list of all the UIS$, UISDC$, 
and HCUIS$ routine names. In order to run the annotator the logical 
name UISANN$TABLE must point at this file. 


You may want to define a symbol in order to simplify running the 
Annotator. It would be best to have your System Manager define these on 
a system wide basis. If this is not possible, you could define them in your 
LOGIN.COM. 


$ UISANN == "RUN SYSSCOMMON: [SYSHLP .EXAMPLES . UISANN] UISANN" 


$ DEFINE UISANNSTABLE - 
SYSSCOMMON : [SYSHLP .EXAMPLES . UISANN] UISANNSROUTINES . TABLE 


If the logical is not defined, the Annotator will not work and an error 
message will be returned. 





2.2 Using the Annotator 


The Annotator file has the same name and extensions as the source file, 
but the version number is one higher. For example, if the file containing 
the source code was named QUANTUM.PAS;3, the file containing the 
annotated code would be named QUANTUM.PAS;4. 


The Annotator produces a Summary Report file that has the same name 
as the source code file, but has a .LOG extension. The Summary Report 
for QUANTUM.PAS would be QUANTUM.LOG. 


The source files you want to annotate must be in your current directory. 
The Annotator places the annotated files and the Summary Report in that 
directory. You also must have sufficient privileges to access the source files 
you want annotated and to access the directory they are in. 
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Follow this procedure to use the Annotator: 


1 
2 


3 
4 


Invoke the Annotator . 


Select from the Annotator menu the language of the file you want 
annotated. 


Enter the filename and extension (eg. QUX.FOR). 
Exit from the Annotator. 


The remainder of this section takes you through a "dry run" of the 
Annotator. You will annotate the example file UISDC_HOUSE.PAS. To 
do the dry run, you must have UISDC_HOUSE.PAS in your current 
directory. If you do not, the Annotator will not be able to find the file. 


1 


Invoke the Annotator by typing one of the following: 

a. If you or your system manager has defined a global symbol so 
UISANN can be issued, type: 
$ UISANN 


b. If no global symbol exists, type: 


$ RUN SYSSCOMMON: [SYSHLP .EXAMPLES . VISANN] ULSANN 


The Annotator initializes the table and then displays the Annotator 
menu, which lists the languages the Annotator supports. 


The is an example of the Annotator menu. 


Select file type to examine or enter ? for help: 


BASIC =1 
BLISS = 2 
Cc = 3 
COBOL = 4 
FORTRAN = 5 
LISP = 6 
PASCAL = 7 
PLI = 8 
VAX/MACRO = 9 


or enter 0 or <CTRL/Z> to exit. 


File Type to be Examined: 

To select the language of the file you want, type the number that 
corresponds to the language and press | RETURN |. 

File Type to be Examined: 7 

The Annotator displays a message confirming the language you have 
selected. 

SUISANN-I-ALLSOUPAS, all source code is assumed to be Pascal 


The Annotator then prompts you to enter the name of the file you want 
annotated. 
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3 Type UISDC_HOUSE.PAS and press [ RETURN]. 


Please enter a file name, or file name with Wild Cards (*). For Help, 
Enter ?. 


File Name(s) to be Examined : uisdc_house.pas 


The Annotator displays a list of UIS$ routines it has found in the 
program. For each routine, it identifies one or more Xlib routines that 
are equivalent or informs you that it could not find one. 


Note: For more information on the comments the Annotator adds 
to the file, refer to Appendix C of A Guide to Migrating VWS 
Applications to DECwindows. 


This is a screen display for UISDC_HOUSE.PAS. 


>>> Examining : DISK2:{SMITH]UISDC_HOUSE.PAS 
SUISANN-I-CREATING, Creating the next version 
of’ DISK2: [SMITH] UISDC_HOUSE .PAS’ 


Found: i- UISSCREATE_COLOR_MAP 
Color maps may be created by using the X$ALLOC_ COLOR_CELLS. 


Found: 1 - UISSCREATE_ DISPLAY 
No equivalent routine exists. 


Found: 1 - UISSCREATE_WINDOW 
Please see information on virtual displays. 


Found: 1 - UIS$GET_ DISPLAY SIZE 
This may be emulated using XS$DISPLAY_ WIDTH, XSDISPLAY_WIDTHMM, 
X$DISPLAY HEIGHT, and X$DISPLAY HEIGHTMM. 


Found: 1 - UISSSET_COLOR 
VISSSET_ COLOR is equivalent to X$STORE COLOR. 


Found: 1 - UVISSSET_ COLORS 
UISS$SET_COLORS is equivalent to X$STORE_ COLORS. 


Found: 4 - UIS$SET FILL PATTERN 
UIS fill patterns are equivalent to STIPPLE patterns in X11; use 
X$SET_STIPPLE or X$CHANGE GC. 


Found: 4 - UIS$SET FONT 
UISSSET_FONT is similar to X$SET_ FONT. The font ID is obtained from 
X$LOAD FONT. 


Found: 4 - UIS$SET_WRITING INDEX 
UIS$SET_WRITING INDEX is similar to X$SET_FOREGROUND or X$CHANGE GC. 


Found: 1 - UISDCSCIRCLE 
UISDCSCIRCLE is similar to XSDRAW_ARC. 


Found: 1 - UISDCSLINE 
UVISDCSLINE is similar to XSDRAW_SEGMENT or XSDRAW_POINT. 


Found: 1 - UISDCSLINE_ ARRAY 
UISDCSLINE_ ARRAY is similar to X$DRAW_ SEGMENTS or XS$DRAW_POINTS. 


Found: 4 - UISDCSPLOT 
VISDCSPLOT is similar to X$DRAW_LINE, XSDRAW LINES, or X$DRAW_ POINT. 


Found: 1 - UISDCS$PLOT_ARRAY 
UISDCS$PLOT ARRAY is similar to X$DRAW_LINE, X$DRAW_LINES, or 
X$DRAW_ POINT. 


Found: 1 - UISDC$SET CHAR SIZE 
X11 does not provide text scaling. 


Found: 1 - UISDCSTEXT 
UISDCSTEXT is similar to X$DRAW TEXT. 
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* Total Lines read in : 142 


* Total UIS calls (of any type) detected : 25 


cee Summary InftOeMaAti On: -=-—serHes$s SoH ees SSe esas Sone eee soe Sees 
* Total UIS calls (of any type) - all files : 25 
The information the Annotator displays on the screen is identical to 


the information contained in the Summary Report for the program in 
UISDC_HOUSE.LOG. 


4 Exit from the Annotator, by typing and pressing or by 
typing 0 and pressing [RETURN |. 
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UVISANNS$ROUTINES.TABLE 


This appendix contains the UISANN$ROUTINES.TABLE that the 
Annotator uses. 


** UISANNSROUTINES .TABLE - used by the UIS Source Code Annotator 
kk 


KEKEKKEKKEKKKKEKEKEKEKEKKKEKERKREKEKKEREKEEKRKKEKKEKKKKEKKKEEKEKKEEKKKREKRREKEKEKEKEKEEKEKE 
** * 


** COPYRIGHT © 1989, 1990 BY * 

** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * 
** 

** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
** TRANSFERRED . 

*x* 

** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
** CORPORATION. 

e* 

** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
xk * * 


KAKKKKKKKKEEKKEKKKKKEKEREREKEKEKKEKEKEEEKKKEKKKEKEEEKERKEREKKEKKEKEKEEKKEKEKEREKKKERER 
** 

** A list of up to 512 UIS, UISDC and HCUIS calls & messages. This 

** will support any computer language that follows the facname$ convention. 

** ADA is not supported. 

xx 


*x* The format is: 
Kx 


+ + + F F F FF F F OF OF F OF OF 


nA YA = Comment 
** call: = Call name (TESTED FOR AS UPPER CASE - UISANNSROUTINES always 
as does upper case testing) 


** mess: = A displayable (to the CRT or a file) message for the user 
Kk 


** NOTE: Upper or lower case may be used as needed. 

x* 

x* This table is broken up into three sections. The first section will 
** contain all the UISS$ calls, the second will contain all UISDC$ 

xx calls, and the third all HCUIS$ calis that may be found in a 

**x* user application. 

xx 

** The sections will contain the routines in alphabetical order. 

*x This order does not need to be maintained. New routines should 


*x be added alphabetically. 
ak 


xk 


wm 
**x UIS 
** 001 


call: HCUISSBEGIN TRANSLATOR 

mess: No equivalent routine exists. 
** 002 

call: HCUISSEND_TRANSLATOR 

mess: No equivalent routine exists. 
** 003 

call: HCUISSREAD BUFFER 

mess: No equivalent routine exists. 
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**x 004 

call: HCUISSREAD DISPLAY 

mess: No equivalent routine exists. 

** 005 

call: HCUISSTRANSLATE 

mess: No equivalent routine exists. 

** 006 

call: HCUISSWRITE BUFFER 

mess: No equivalent routine exists. 

** 007 

call: HCUISSWRITE_DISPLAY 

mess: No equivalent routine exists. 

*x* 008 

call: UISSBEGIN SEGMENT 

mess: X11 provides no equivalents to the UISS$ display list routines. 
** 009 

call: UISSCIRCLE 

mess: Filled circles are drawn using the XS$DRAW ARC routine. 

** 010 

call: UIS$CLOSE_WINDOW 

mess: UISSCLOSE WINDOW is equivalent to a SYSSEXIT system service call. 
** O11 

call: UISS$COPY_OBJECT 

mess: X1li provides no equivalents to the UIS$ display list routines. 
** O12 

call: UIS$CREATE_COLOR_MAP 

mess: Color maps may be created by using the XSALLOC_COLOR_CELLS. 

** 013 

call: UIS$CREATE_COLOR_MAP_ SEG 

mess: UIS$CREATE_COLOR_MAP SEG may be emulated using X$CREATE_COLORMAP. 
xx 014 

call: UISSCREATE DISPLAY 

mess: No equivalent routine exists. 

** 015 

call: UISSCREATE KB 

mess: No Direct Replacement - Similar to X$SELECT_INPUT. 

** 016 

call: UVISSCREATE_TERMINAL 

mess: No DECwindows support provided for this VIS call. 

oe OL 

call: UISSCREATE_TB 

mess: X11 does not provide digitizer support. 

x* 018 

call: UISS$CREATE_TRANSFORMATION 

mess: X11 provides only a device dependent integer coordinate space. 
ae 019 

call: UISSCREATE WINDOW 

mess: Please see information on virtual displays. 

** 020 

call: UISSDELETE COLOR_MAP 

mess: UISSDELETE_COLOR_MAP is similar to XSFREE_ COLORMAP. 

** 021 

call: UISS$DELETE_COLOR_MAP SEG 

mess: UVISSDELETE COLOR _MAP_ SEG is similar to XS$FREE COLORMAP. 

** 022 

call: UISSDELETE DISPLAY 

mess: UISSDELETE DISPLAY is similar to X$CLOSE_ DISPLAY. 

Ex O23 

call: UISSDELETE_KB 

mess: UISSDELETE_KB is similar to X$SELECT_INPUT. 

** 024 

call: UISSDELETE OBJECT 

mess: X11 provides no equivalents to the UIS$ display list routines. 
** 025 

call: UISSDELETE PRIVATE 

mess: X11 provides no equivalents to the UIS$ display list routines. 
** 026 

call: UISS$DELETE_TB 

mess: X11 does not provide digitizer support. 

**% O27 
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call: UISSDELETE_ TRANSFORMATION 

mess: X11 provides only a device dependent integer coordinate space. 
*x* 028 

call: UISSDELETE WINDOW 

mess: Please see information on virtual displays. 

xk 029 

call: UISSDISABLE_DISPLAY_LIST 

mess: X11 provides no equivalents to the UIS$ display list routines. 
**x 030 

call: UISSDISABLE KB 

mess: UISSDISABLE KB is similar to X$SELECT_INPUT. 

**x 031 

call: UISSDISABLE KB 

mess: X11 does to provide digitizer support. 

*k 032 

call: UISSDISABLE VIEWPORT KB 

mess: There is no concept of a virtual KB in X11. 

*x* 033 

call: UISSELLIPSE 

mess: Filled ellipses are drawn using the X$DRAW_ARC routine. 

xk 034 

call: UISSENABLE DISPLAY LIST 

mess: X11 provides no equivalents to the UIS$ display list routines. 
xk 035 

call: UISSENABLE KB 

mess: UISSENABLE KB is remotely similar to X$SET_INPUT FOCUS. 

xk 036 

call: UISSENABLE_TB 

mess: X11 does not provide digitizer support. 

** 037 

call: UISSENABLE_VIEWPORT_KB 

mess: There is not equivalent routine - please see X$SELECT INPUT. 
xk 038 

call: UISSEND_SEGMENT 

mess: X11 provides no equivalents to the UIS$ display list routines. 
** 039 

call: UISSERASE 

mess: UISSERASE is similar to X$CLEAR AREA; will repaint using the BG 
pixmap if one is declared. ~ 

*x* 040 

call: UISS$EXECUTE 

mess: X11 provides no equivalents to the UIS$ display list routines. 
** 041 

call: UISSEXECUTE DISPLAY 

mess: X11 provides no equivalents to the UIS$ display list routines. 
** 042 

call: UISSEXPAND_ ICON 

mess: UISSEXPAND ICON is similar to XSSET WM HINTS. 

** 043 7 — 

call: UISSEXTRACT HEADER 

mess: X11 provides no equivalents to the UIS$ display list routines. 
xk 044 

Gall; UISSEXTRACT OBJECT 

mess: X11 provides no equivalents to the UIS$ display list routines. 
xe 045 

call: UISSEXTRACT_PRIVATE 

mess: X11 provides no equivalents to the UIS$ display list routines. 
** 046 

call: UISSEXTRACT_ REGION 

mess: X11 provides no equivalents to the UIS$ display list routines. 
** O47 

call: UISSEXTRACT TRAILER 

mess: X11 provides no equivalents to the UISS$ display list routines. 
xk 048 

call: UISSFIND_PRIMITIVE 

mess: X11 provides no equivalents to the UIS$ display list routines. 
xk 049 

call: UISSFIND_SEGMENT 

mess: X11 provides no equivalents to the UIS$ display list routines. 
** 050 
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call: UISS$GET ABS POINTER POS 

mess: UIS$GET_ ABS POINTER_POS is equivalent to XS$QUERY_ POINTER. 

** O51 

call: UIS$GET ALLIGNED POS 

mess: X11 does not provide text formatting functions. 

** 052 

call: UIS$GET_ARC_TYPE 

mess: X11 does not provide inquiry functions for graphics context. 
** O53 

call: UIS$GET BACKGROUND INDEX 

mess: X11 does Not provide inquiry functions for graphics context. 
** 054 

call: UISSGET BUTTONS 

mess: UIS$GET BUTTONS is similar to X$QUERY_POINTER. 

xk O55 

call: UIS$GET_CHAR_ROTATION 

mess: X11 does not provide text rotation. 

** 056 

call: UISSGET CHAR SI2E 

mess: X11 does not provide text scaling. 

** 057 

call: UIS$GET_CHAR_SLANT 

mess: X11 does not provide text shearing (slant). 

** 058 

call: UISS$GET_CHAR_SPACING 

mess: X11 does not provide text formatting functions. 

** 059 

call: UISS$GET_CLIP 

mess: X11 does not provide inquiry functions for graphics context. 
** 060 

call: UIS$GET_COLOR 

mess: UIS$GET_ COLOR is similar to X$QUERY_COLOR. 

**x 061 

call: UIS$GET_COLORS 

mess: UIS$GET_ COLORS is similar to X$QUERY_COLORS. 

** 062 

¢all: UIS$GET_CURRENT_OBJECT 

mess: X11 provides no equivalents to the UIS$ display list routines. 
** 063 

call: UISSGET_ DISPLAY SIZE 

mess: This may be emulated using XS$DISPLAY WIDTH, X$DISPLAY_WIDTHMM, 
XSDISPLAY HEIGHT, and X$DISPLAY_HEIGHTMM. 

** 064 

call: UIS$GET_FILL_PATTERN 

mess: X11 does not provide inquiry functions for graphics context. 
** 065 

call: UIS$GET_FONT 

mess: X11 does to provide inquiry functions for graphics context. 
** 066 

call: UIS$GET_FONT ATTRIBUTES 

mess: UISS$GET FONT ATTRIBUTES is similar to X$QUERY_FONT. 

** 067 7 

call: UISSGET FONT SIZE 

mess: UIS$GET FONT SIZE is similar to X$TEXT_WIDTH and X$TEXT_ EXTENT. 
xx 068 ~ 

call: UIS$GET_HW_ COLOR_INFO 

mess: Information is available through a number of individual calls - 
Please see "Display Routines". 

** 069 

call: UISS$GET_INTENSITIES 

mess: UISS$GET_INTENSITIES is similar to X$QUERY_COLORS. 

** 070 

call: UIS$GET_INTENSITY 

mess: UISS$GET_INTENSITY is similar to XSQUERY_ COLOR. 

Ee O71 

call: UISSGET_KB ATTRIBUTES 

mess: UISSGET KB ATTRIBUTES is similar to X$GET_KEYBOARD CONTROL; except 
for up button transitions.. 

** 072 

call: UISSGET_LINE_STYLE 
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mess: X11 does not provide inquiry functions for graphics context. 
** O73 

call: UIS$GET LINE WIDTH 

mess: X11 does not provide inquiry functions for graphics context. 
** 074 

call: UISS$GET_NEXT_OBJECT 

mess: X11 provides no equivalents to the UIS$ display list routines. 
ER OTS 

call: UISSGET_ OBJECT ATTRIBUTES 

mess: X11 provides no equivalents to the UIS$ display list routines. 
**x 076 

call: UISSGET PARENT SEGMENT 

mess: X11 provides no equivalents to the UIS$ display list routines. 
** O77 

call: UISS$GET_POINTER_POSITION 

mess: UISSGET POINTER_POSITION is similar to X$QUERY POINTER. 

** 078 ~ 

call: UISSGET_ POSITION 

mess: X11 doe not provide text formatting functions. 

xk 079 

call: UISSGET PREVIOUS OBJECT 

mess: X11 provides no equivalents to the UIS$ display list routines. 
x* 080 

call: UISSGET_ ROOT SEGMENT 

mess: X11 provides no equivalents to the UISS$ display list routines. 
** 081 

call: UISS$GET_TB_ INFO 

mess: X11 does not provide digitizer support. 

** 082 

call: UISSGET_TB POSITION 

mess: X11 does not provide digitizer support. 

x* 083 

call: UIS$GET_TEXT_FORMATTING 

mess: X11 does not provide text formatting functions. 

** 084 : 

call: UISSGET TEXT MARGINS 

mess: X11 does not provide text formatting functions. 

** 085 

call: UISS$GET TEXT PATH 

mess: X11 does not provide text formatting functions. 

x** 086 

call: UISS$GET_TEXT_SLOPE 

mess: X11 does not provide text formatting functions. 

** 087 

call: UISS$GET_VCM_ID 

mess: X11 has no equivalent function. 

xx 088 

call: UIS$GET_VIEWPORT_ICON 

mess: Please see the Guide to Xlib Programming, "Using Properties to 
Communicate with the Window Manager". 

** 089 

call: UISSGET VIEWPORT POSITION 

mess: UISSGET_VIEWPORT_POSITION is similar to XS$GET WINDOW ATTIRIBUTES; note 
the change in origin. 

** 090 

call: UIS$GET VIEWPORT SIZE 

mess: UISSGET VIEWPORT SIZE is similar to X$GET WINDOW ATTRIBUTES; UIS 
returns centipoints - X returns pixels. a 

** 091 

call: UISSGET_VISIBILITY 

mess: There is no direct way of obtaining this information in X1l. Track 
visibility notify events. 

** 092 

call: UISSGET_WINDOW_ATTRIBUTES 

mess: UIS$GET_WINDOW ATTRIBUTES is similar to XSGET_WINDOW_ ATTRIBUTES. 
AX7 O93 

call: UISSGET_ WINDOW SIZE 

mess: UISSGET WINDOW SIZE is similar to X$GET_ GEOMETRY: please note the 
differences. 

xx 094 
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call: UIS$GET_WRITING INDEX 

mess: X11 does not provide inquiry functions for graphics Context. 

*xk O95 

call: UISS$GET WRITING MODE 

mess: X11 does not provide inquiry functions for graphics Context. 

*k 096 

call: UISSGET_WS_COLOR 

mess: UISSGET WS COLOR is similar to X$LOOKUP_COLOR. 

** 097 

call: UIS$GET_WS_ INTENSITY 

mess: UISSGET WS_INTENSITY is similar to X$LOOKUP_ COLOR. 

xk 098 

call: UISSHLS TO RGB 

mess: X11 does not provide color conversion routines. 

xe 099 

call: UIS$HSV_TO_RGB 

mess: X11 does not provide color conversion routines. 

** 100 

call: UISSIMAGE 

mess: UISSIMAGE is similar to X$PUT_IMAGE: Note that image formats differ. 
ee LOL 

call: UISSINSERT OBJECT 

mess: X11 provides no equivalents to the UVIS$ display list routines. 

xk 102 

call: UISSLINE 

mess: UISSLINE requires XSDRAW_SEGMENT and XSDRAW_POINT (for the individual 
points). 

** 103 

call: UISSLINE_ ARRAY 

mess: UISSLINE ARRAY requires X$DRAW_SEGMENT and X$DRAW_POINT (for the 
individual points). 

** 104 

call: UISSMEASURE TEXT 

mess: UISSMEASURE_TEXT is similar to XSQUERY_TEXT EXTENTS. ( NOTE: This 
assumes control list/attribute blocks were not used. ) 

**® 105 

call: UIS$MOVE_AREA 

mess: UISSMOVE_AREA is similar to X$COPY_AREA followed by an XS$ERASE or 
draw of filled rectangle over area. 

xk 106 

call: UIS SMOVE_VIEWP ORT 

mess: UISS$MOVE_VIEWPORT is similar to X$MOVE_WINDOW. 

** 107 

call: UISSMOVE WINDOW 

mess: There is no equivalent functionality under X11. 

xx 108 

call: UISS$NEW_TEXT LINE 

mess: X11 does not provide text formatting functions. 

** 109 

call: UISSPLOT 

mess: UISSPLOT is similar to X$DRAW_LINE, X$DRAW_LINES or X$DRAW POINT. 
cae 1 

call: UISSPLOT_ARRAY 

mess: UISS$PLOT_ ARRAY is similar to X$DRAW_LINE, X$DRAW_LINES or X$DRAW_ POINT. 
ae LIL 

call: UISSPOP_VIEWPORT 

mess: UISSPOP_VIEWPORT is equivalent to XSRAISE_WINDOW. 

we LZ 

call: UISSPRESENT 

mess: No equivalent call exists, but may be easily adapted in line for 
DECwindows. 

wx. TLS 

call: UISSPRIVATE 

mess: X11 provides no equivalents to the UIS$ display list routines. 
** 114 

call: UISSPUSH_VIEWPORT 

mess: UISS$PUSH_ VIEWPORT is similar to XSLOWER_WINDOW. 

*e® 115 

call: UISS$READ_CHAR 

mess: No equivalent call exists, keyboard input is delivered using the xX 
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event mechanism. 

= L16 

call: UISSRESIZE WINDOW 

mess: UISSRESIZE_ WINDOW is similar to X$CHANGE WINDOW ATTRIBUTES. 
ee Ls 

call: UIS$RESTORE_CMS_ COLORS 

mess: UISSRESTORE CMS COLORS is similar to XSINSTALL_COLORMAP. 

paalociaee! = 

call: UIS$RGB_TO HLS 

mess: X11 does not provide color conversion routines. 

ae 319 

call: UISS$RGB_TO HSV 

mess: X11 does not provide color conversion routines. 

=x 120 

call: UISSSET_ADDOPT AST 

mess: No equivalent routine exists. 

we Te 

call: UISSSET . ALLIGNED_ POSITION 

mess: X11 does not provide text formatting functions. 

e* 122 

call: UISSSET ARC TYPE 

mess: UISSSET_ ARC_ TYPE is similar to XS$SET_ ARC_MODE or X$CHANGE _ Gc. 
e123 

call: UISS$SET BACKGROUND INDEX 

mess: UISS$SET BACKGROUND_INDEX is similar to X$SET_BACKGROUND or XSCHANGE GC. 
xs 124 

call: UISS$SET BUTTON AST 

mess: This is encompassed by the X event processing routines. 

a 20 

call: UIS$SET | CHAR ROTATION 

mess: X11 does not " provide character rotation. 

xx 126 

call: UIS$SET CHAR_SIZE 

mess: X11 does not provide text scaling. 

*eIZT 

call: UISSSET_CHAR_SLANT 

mess: X11 does to provide character shearing (slant). 

ee 2S 

call: UISS$SET_CHAR_ SPACING 

mess: X11 does not provide text formatting functions. 

** 129 

call: UIS$SET_CLIP 

mess: X$SET_CLIP_ RECTANGLES provides UIS clipping and more. 

ee 130 

call: UISSSET_ CLOSE_AST 

mess: The only equivalent concept is encompassed by the DECwindows Toolkit. 
me ot 

call: UISSSET COLOR 

mess: UIS$SET COLOR is equivalent to XSSTORE COLOR. 

** 132 

Call: UISS$SET_ COLORS 

mess: UIS$SET COLORS is equivalent to X$STORE_ COLORS. 

** 133 7 

call: UIS$SET_EXPAND_ICON AST 

mess: No equivalent routine exists. 

** 134 

call: UVISSSET FILL PATTERN 

mess: UIS fill patterns are equivalent to STIPPLE patterns in X11; use 
X$SET_STIPPLE or XSCHANGE GC. 

RX 135 

call: UISS$SET_FONT 

mess: UISS$SET FONT is similar to X$SET_FONT. The font ID is obtained from 
X$LOAD_FONT. 

**x 136 

call: UISSSET_ GAIN KB AST 

mess: There are equivalent X events for obtaining input focus. 

Ee 137 

call: UISSSET INSERTION POSITION 

mess: X11 provides no equivalents to the UISS$ display list routines. 
seiko 
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call: UISSSET INTENSITIES 

mess: UIS$SET INTENSITIES is equivalent to X$STORE COLORS. 

** 139 

call: UISSSET INTENSITY 

mess: UISSSET INTENSITY is equivalent to XS$STORE COLOR. 

** 140 7 = 

call: UIS$SET KB AST 

mess: There are equivalent X events; use XSCHANGE WINDOW ATTRIBUTES. 

** 141 ~ 

call: UISSSET_KB ATTRIBUTES 

mess: UISSSET_KB ATTRIBUTES is similar to X$CHANGE_KB CONTROL. 

ee 142 

call: UISS$SET KB COMPOSE2 

mess: X$SET_ MODIFIER MAPPING and X$CHANGE_KEYBOARD MAPPING can remap the 
keyboard input. 

** 143 

call: UISS$SET_KB_COMPOSE3 

mess: X$SET_MODIFIER_MAPPING and X$CHANGE KEYBOARD MAPPING can remap the 
keyboard input. 

xk 144 

call: UISSSET_KB KEYTABLE 

mess: X$CHANGE | KEYBOARD _MAPPING and X$SET_MODIFIER_MAPPING can remap the 
keyboard input. 

*e 145 

call: UISSSET_ LINE STYLE 

mess: UIS$SET_LINE_STYLE is similar to X$SET_LINE ATTRIBUTES or XSCHANGE GC. 
** 146 

call: UIS$SET_ LINE WIDTH 
mess: UISSSET_LINE_WIDTH is similar to X$SET_LINE ATTRIBUTES or X$CHANGE_GC. 
** 147 

call: UISS$SET_ LOSE _KB AST 

mess: There are equivalent X events; use XS$CHANGE WINDOW_ATTRIBUTES. 
xx 148 

call: UISSSET_MOVE_INFO_AST 

mess: There are equivalent X events. 

xx 149 

call: UISSSET_ POINTER _AST 

mess: There are equivalent X events. 

** 150 

call: UIS$SET_POINTER PATTERN 

mess: UISS$SET POINTER POSITION is similar to XSDEFINE_CURSOR. 

** 151 iz _ 

call: UISS$SET_POINTER_POSITION 

mess: UISS$SET POINTER POSITION is similar to XSWARP_POINTER. 

** 152 ms 

Calis UISSSET_POSITION 

mess: X11 does not provide text formatting functions. 

*x 153 

call: UIS$SET_RESIZE AST 

mess: There are equivalent X events. 

** 154 

call: UIS$SET_SHRINK_TO_ICON_AST 

mess: There are equivalent X events. 

** 155 

call: UISSSET_ TB_AST 

mess: No equivalent routine exists. 

** 156 

call: UISSSET_ TEXT FORMATTING 

mess: X11 does not “provide text formatting functions. 

** 157 

call: UISSSET_TEXT_MARGINS 

mess: X11 does not provide text formatting functions. 

**x 158 

call: UISS$SET TEXT PATH 

mess: X11 does not provide text formatting functions. 

xx 159 

call: UVISSSET_TEXT_SLOPE 

mess: X11 does not provide text formatting functions. 

**x 160 

call: UISSSET WRITING_INDEX 
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mess: UISSSET WRITING INDEX is similar to XSSET FOREGROUND or X$CHANGE_GC. 
xk 161 

call: UISSSET_WRITING MODE 

mess: UISS$SET WRITING MODE is similar to X$SET_FUNCTION or X$CHANGE_ GC. 
** 162 

call: UISSSHRINK_TO_ICON 

mess: UISSSHRINK_TO_ICON is similar to X$SET_WM_HINTS. 

** 163 - 

call: UISSSOUND_BELL 

mess: UIS$SOUND_BELL is similar to X$BELL. 

** 164 

call: UISSSOUND_CLICK 

mess: There is no way to sound the keyclick in X11. 

** 165 

call: UISSTEST KB 

mess: The application should keep track of this through the X event mechanism. 
xk 166 

call: UISSTEXT 

mess: UISS$TEXT is similar to XSDRAW_TEXT. 

** 167 

call: UISSTRANSFORM_OBJECT 

mess: X11 provides no equivalents to the UISS$ display list routines. . 
xx 168 

call: UISDCSALLOCATE_DOP 

mess: X11 does not have comparable interface to the hardware. 

xx. 169 

call: UISDCSCIRCLE 

mess: UISDCSCIRCLE is similar to XSDRAW_ ARC. 

** 170 

call: UISDCSELLIPSE 

mess: UISDCSELLIPSE is similar to X$DRAW ARC. 

caliame Cat 2 

call: UISDCSERASE 

mess: UISDCSERASE is similar to X$CLEAR_AREA or X$CLEAR_WINDOW; X will 
repaint the BG using a pixmap if specified. 

** 172 

call: UISDCSEXECUTE_DOP_ASYNCH 

mess: X11 does not have a comparable interface to the hardware. 

**k 173 

call: UISDCSEXECUTE_DOP_ASYNCH 

mess: X11 does not have a comparable interface to the hardware. 

** 174 

call: UISDCSEXECUTE_DOP_SYNCH 

mess: X11 does not have a comparable interface to the hardware. 

xe 175 

call: UISDCSGET ALIGNED POSITION 

mess: X11 no text formatting nor the concept of a current text writing position. 
wx 176 

call: UISDCSGET_ CHAR SIZE 

mess: X11 does not provide text scaling. 

ee 177 

call: UISDCSGET_CLIP 

mess: X11 does not provide query routines for Graphics Context. 

ee 178 

call: UISDCSGET_POINTER_POSITION 

mess: UISDCS$GET_POINTER_POSITION is similar to XSQUERY_POINTER. 

ER LTS 

call: UISDCSGET_ POSITION 

mess: X11 does not provide text formatting. 

**x 180 

call: UISDCSGET_TEXT_MARGINS 

mess: X11 provides no text formatting nor the concept of text margins. 
** 181 

call: UISDCS$GET VISIBILITY 

mess: There is no direct way of obtaining this information in X1l. Track 
visibility notify events. 

** 182 

call: UISDCS$IMAGE 

mess: UISDCSIMAGE is similar to X$PUT_IMAGE. 

** 183 
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call: UISDCSLINE 

mess: UISDCS$LINE is similar to X$DRAW SEGMENT or X$DRAW POINT. 

xx 184 7 ~ 

call: UISDCSLINE_ ARRAY 

mess: UISDCSLINE_ARRAY is similar to X$DRAW_SEGMENTS or XS$DRAW POINTS. 
** 185 

call: UISDCSLOAD_ BITMAP 

mess: No equivalent routine exists. 

** 186 

call: UISDCSMEASURE TEXT 

mess: UISDCSMEASURE_TEXT is similar to XSQUERY_TEXT_EXTENTS. (Assumes a 
UIS control list was not used.) 

** 187 

call: UISDCSMOVE AREA 

mess: UISDCSMOVE_AREA is similar to XSCOPY_ AREA followed by XSERASE or draw 
of filled rectangle of the area. 

x* 188 

call: UISDCSNEW_TEXT_ LINE 

mess: X11 does not provide text formatting. 

** 189 

call: UISDCSPLOT 

mess: UISDCSPLOT is similar to X$DRAW_LINE, XSSRAW_LINES, or XS$DRAW_POINT. 
**x 190 

call: UISDCSPLOT ARRAY 

mess: UISDCSPLOT_ARRAY is similar to XSDRAW_LINE, XSDRAW_LINES, or XSDRAW POINT. 
ae LOL 

call: UVISDCSQUEUE_ DOP 

mess: No equivalent routine exists. 

ee 192 

call: UISDCSREAD_ IMAGE 

mess: UISDCSREAD_IMAGE is similar to XSGET_ IMAGE. CAUTION: The contents 
of X11 windows are not guaranteed to be valid. 

** 193 

call: UISDCSSET_ALIGNED_POSITION 

mess: X11 provides no text formatting nor the concept of a current text 
writing position. 

** 194 

call: UISDCSSET_ BUTTON AST 

mess: This function is encompassed by X event processing. 

** 195 

call: UISDCSSET_CHAR_SIZ2E 

mess: X11 does not provide text scaling. 

*x 196 

call: UISDCSSET CLIP 

mess: XSSET CLIP_RECTANGLES provides UIS clipping and more. 

** 197 

call: UISDCSSET_POINTER_AST 

mess: There are equivalent X events; use XSCHANGE WINDOW ATTRIBUTES. 
** 198 i = 

call: UISDCS$SET_POINTER_PATTERN 

mess: UISDCSSET_ POINTER PATTERN is similar to XSDEFINE CURSOR. 

xx 199 

call: UISDCSSET POINTER _POSITION 

mess: UISDCSSET POINTER POSITION is similar to X$WARP POINTER. 

*x*x 200 7 = = 

call: UISDCSSET POSITION 

mess: X11 does not provide text formatting. 

ee 204 

call: UISDCSSET TEXT MARGINS 

mess: X11 provides no text formatting nor the concept of text margins. 
** 202 

call: UISDCSTEXT 

mess: UISDCSTEXT is similar to X$DRAW TEXT. 
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Annotator Messages 


This appendix contains messages you may encounter while using the 
Annotator. 


ALLSOUBAS, All source code is assumed to be BASIC 


Informational: All source code within the specified file is expected to be 
BASIC. 


User Action: None. 


ALLSOUBLI, All source code is assumed to be BLISS 


Informational: All source code within the specified file is expected to be 
BLISS. 


User Action: None. 


ALLSOUC, All source code is assumed to be C 


Informational: All source code within the specified file is expected to be 
C. 


User Action: None. 


ALLSOUCOB, All source code is assumed to be COBOL 


Informational: All the source code within the specified file is expected to 
be COBOL. 


User Action: None. 


ALLSOUFOR, All source code is assumed to be FORTRAN 


Informational: All source code within the specified file is expected to be 
FORTRAN. 


User Action: None. 


ALLSOULIS, All source code is assumed to be LISP 


Informational: All source code within the specified file is expected to be 
LISP. 


User Action: None. 


ALLSOUMAC, All source code is assumed to be VAX/MACRO 


Informational: All source code within the specified file is expected to be 
MACRO. 


User Action: None. 
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ALLSOUPAS, All source code is assumed to be PASCAL 


Informational: AJ] source code within the specified file is expected to be 
PASCAL. 


User Action: None. 


ALLSOUPLI, All source code is assumed to be PL/I 


Informational: All source code within the specified file is expected to be 
PL/I. 


User Action: None. 


CANCRE, Cannot create the next version of !AS/FAO=1 


Fatal Error: The attempt to create the next version of the input file has 
failed. 


User Action: Make sure you have the proper privileges to create files in 
your current directory. If you do, make sure you you have not exceeded 
any of your quotas. Also make sure the current version number is not 
32767. 


CREATING, Creating the next version of !AS/FAO=1 


Informational: The next version of the input file has been successfully 
created. 


User Action: None. 


FILERRVER, File error - Verify the file name and directory 


Warning: The input file name or the directory specification provided is 
incorrect. 


User Action: Verify the file name and the directory specification. If they 
are incorrect, reenter them correctly. If they are correct, check the file and 
directory protection to make sure you have access. 


INITAB, Initializing the tables 
Informational: The table of UIS routines is being initialized. 


User Action: None. 


INVFILNAM, Invalid file name or specification 


Warning: The file name or the directory specification you provided did not 
exist or did not have the appropriate protection to allow access. 


User Action: Verify the file name and directory specifications. If they are 
incorrect, reenter them correctly. If they are correct, check the file and 
directory protection to make sure you do have access. 


INVINPNOT, Invalid input - Nothing entered 
Warning: The input to a question was invalid. 


User Action: Reread the question and the acceptable input and reenter 
your response. 
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INVINPTOO, Invalid input - Too much entered 
Warning: The response supplied contained too much information. 


User Action: Reread the question and the acceptable input and reenter 
your response. 


INVLANOPT, Invalid language option selected 
Warning: The language option selected is invalid. 
User Action: Review the valid options and select the one you want or exit 
by entering or 0. 

NOMODFIL, No modified file will be produced 


Informational: A user action has occurred that does not warrant 
annotation taking place. 


User Action: Determine if you supplied incorrect information to one of 
the queries. If you have, rerun the annotator and provide the correct 
information. If you have not, no action is required. 


NORMAL, Normal successful completion 
Informational: The Annotator annotated the file successfully 


User Action: None. 


UNATOFIN, Unable to find UIS_X_FLAG.TABLE 


Fatal Error: The Annotator did not find the table 
UISANN$ROUTINES.TABLE. 


Use Action: Check the definition of the logical UISANN$TABLE 

to make sure it points to the directory that contains the file 
UISANN$ROUTINES. TABLE. If UISANN$TABLE is not defined, define it 
with the following command: 


$ DEFINE UISANNSTABLE SYSSSYSROOT: [SYSHLP .EXAMPLES .UISANN] . 


Then ask your system manager to define it system wide. 


UNRINPPRO, Unrecognized input provided 


Warning: The input provided to a query is not recognized as a valid 
response. 


User Action: Reread the question and the acceptable inputs and reenter 
your response. 
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UIS$ Routines and Equivalent Xlib Routines 


This appendix list UIS$ routines you may encounter with their equivalent 
XLIB routines and describes their functionality. 





Introduction to UIS$ Routines 


Table C-—1 gives UIS$ routines with their equivalent Xlib routines, and an 
explanation of the routine functionality. 


Note: If no equivalent Xlib routine exists for a UIS$ routine, the "Xlib 
Routines" column contains N/A. 


Table C-—1_ UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines Xlib Routines Explanation 
UISSBEGIN_SEGMENT N/A X11 provides no equivalent to the UIS$ 


display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


UIS$CIRCLE X$DRAW_ARC You use the Xlib draw arc routine 
to draw circles. Refer to "Drawing 
Graphics” in the VMS DECwindows 
Guide to Xlib Programming. 


UIS$¢CLOSE_WINDOW SYS$SEXIT The CLOSE_WINDOW routine is 
equivalent to a SYS$EXIT system 
service call and is the default action for 
the UISSCLOSE_AST. 


UISSCOPY_OBJECT N/A X11 provides no equivalent to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 
or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 
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Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UIS$CREATE_COLOR_MAP 


UISSCREATE_COLOR_MAP_SEG 


UIS$CREATE_DISPLAY 


UIS$CREATE_KB 


UIS$CREATE_TERMINAL 


Cc-2 


Xlib Routines 


X$ALLOC_COLOR_CELLS 


X$CREATE_COLORMAP 


N/A 


X$SELECT_INPUT 


N/A 


Explanation 


X11 incorporates the concept of private 
colormaps that can be created by 

the application and installed (refer to 
X$CREATE_COLORMAP). However, the 
installation of a colormap other than the 
default usually alters the described in 
"Using Color” in the VMS DECwindows 
Guide to Xlib Programming. \n general, 
to allocate colors for exclusive use (that 
is, you intend to alter the color), use 
X$ALLOC_COLOR_CELLS, requesting 
N planes and 1 color. This provides 
you with a single pixel value and a 

set of plane mask bits that can then 

be permuted to form a colormap that 
maintains the ability to be complemented 
(when you use GXxor mode with the 
plane mask bits). If no arithmetic 
operations must be performed on the 
bitmap, make the call with 1 plane and 
N colors. This has a better chance of 
succeeding. For applications using static 
colors, you can request "named" colors 
such as "red". 


To emulate this feature, you must 
create and install a private colormap 
for the entire hardware colormap, 
and the application must manage this 
colormap. Refer to "Using Color” in 
the VMS DECwindows Guide to Xlib 
Programming. Complete control over 
the entire colormap is the only way to 
accomplish this. 


This routine has no counterpart in 
X11. VWS uses this routine to initialize 
structures and create any needed 
colormap. In an X11 application, this 
routine would be replaced by more 
generic application initialization. 


X11 has no equivalent to the UIS virtual 
keyboard. In X11, you can select the 
types of input events. Refer to "Handling 
Events” in the VMS DECwindows Guide 
to Xlib Programming. 


The DECterm VT340 terminal emulation 
windows can only be created from the 
DECwindows session manager. No 
mechanism exists to create a terminal 
window from within a program. 


| 
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Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UIS$CREATE_TB 


UIS$CREATE__ 
TRANSFORMATION 


UIS$CREATE_WINDOW 


UIS$DELETE_COLOR_MAP 


UIS$DELETE_COLOR_MAP_ 
SEGMENT 


UIS$DELETE_DISPLAY 


UIS$DELETE_KB 


UIS$DELETE_OBJECT 


Xlib Routines 
N/A 


N/A 


X$CREATE_WINDOW 


X$FREE_COLORMAP 
X$FREE_COLORMAP 


X$CLOSE_DISPLAY 


X$SELECT_INPUT 


N/A 


Explanation 


X11 provides no digitizer support. 
Tablets are supported only as 
replacements for the mouse. 


Since X11 provides only a device- 
dependent integer coordinate space 
with each unit representing a pixel, 
programmers must provide their own 
world coordinates and transformations. 


This routine performs a device 
assignment to the workstation 

screen. This is the equivalent of 
X$OPEN_DISPLAY, which establishes 
the link to the display. In addition, 

an X$CREATE_WINDOW would be 
performed to create and initialize 

the window structures; this would be 
followed by an X$MAP_WINDOW 

to make the window visible. Refer to 
"Managing the Client-Server Connection” 
and “Working with Windows" in the 
VMS DECwindows Guide to Xlib 
Programming. 


Refer to "Using Color”, in the 
VMS DECwindows Guide to Xlib 
Programming. 


Refer to "Using Color", in the 
VMS DECwindows Guide to Xlib 
Programming. 


Closing the display is the nearest 
equivalent under X11. The 
X$DESTROY_WINDOW call is similar 
to moving the viewport offscreen under 
VWS. It leaves everything set up (like 
the connection), but does not leave the 
window. 


X11 provides no equivalent to a virtual 
keyboard. Types of input events can 
be selected and keyboard events 
ignored. Refer to "Handling Events", 
in the VMS DECwindows Guide to Xlib 
Programming. 


X11 provides no equivalent to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 
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Table C—1 (Cont.) UlS Routines and their Equivalent Xlib Routines 
UIS$ Routines Xlib Routines Explanation 


UIS$DELETE_PRIVATE N/A X11 provides no equivalent to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 
or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


UIS$¢DELETE_TB N/A X11 provides no digitizer support. 
Tablets are supported only as 
replacements for the mouse. 


UIS$DELETE_TRANSFORMATION N/A Since X11 provides only a device- 
dependent integer coordinate space 
with each unit representing a pixel, 
programmers must provide their own 
world coordinates and transformations. 


UISSDELETE_WINDOW X$CLOSE_DISPLAY Closing the display is the nearest 
equivalent under X11. The 
X$DESTROY_WINDOW call is more 
like moving the viewport offscreen under 
VWS. It leaves everything set up (like 
the connection), but does not leave the 
window. 


UISSDISABLE_DISPLAY_LIST N/A X11 provides no equivalent to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 
or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


UIS$DISABLE_KB X$SELECT_INPUT X11 provides no equivalent to a virtual 
keyboard. The types of input events 
can be selected and keyboard events 
ignored. Refer to "Handling Events’, 
in the VMS DECwindows Guide to Xlib 
Programming. 


UIS$DISABLE_TB NVA X11 provides no digitizer support. 
Tablets are supported only as 
replacements for the mouse. 


UIS$DISABLE_VIEWPORT_TB N/A UIS uses this routine to disconnect a 
virtual KB from a window and remove 
the window from the list of windows 
that can be cycled to. X11 has no 
concept of a virtual KB. You either 
accept input focus and keyboard input 
events or do not choose to receive 
these events of the input focus. Refer to 
X$SELECT_INPUT. 


UISSELLIPSE X$DRAW_ARC Draw ellipses by using the Xlib draw arc 
routine. Refer to "Drawing Graphics’, 
in the VMS DECwindows Guide to Xlib 
Programming. 
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Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UISSENABLE_DISPLAY_LIST 


UISSENABLE_KB 


UISSENABLE_TB 


UISSENABLE_VIEWPORT_KB 


UISSEND_SEGMENT 


UISSERASE 


UISSEXECUTE 


UISSEXECUTE_DISPLAY 


Xlib Routines 


N/A 


X$SET_INPUT_FOCUS 


N/A 


N/A 


N/A 


X$CLEAR_AREA 


N/A 


N/A 


Explanation 


X11 provides no equivalent to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


This call sets the input focus (the closest 
concept to connecting the physical 
keyboard to a window). 


X11 provides no digitizer support. 
Tablets are supported only as 
replacements for the mouse. 


UIS uses this routine to associate a 
virtual KB with a window and add the 
window to the list of windows that can 
be cycled to. X11 has no concept 

of a virtual KB. You either accept 
input focus and keyboard input events 
or do not choose to receive these 
events of the input focus. Refer to 
X$SELECT_INPUT. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


Both Clear Area and Clear Window 
routines are provided to erase portions 
of windows. You cannot use the Clear 
Area function on a PIXMAP. Instead, 
you should use a filled rectangle the 
size of the screen in the background 
color. Refer to "Drawing Graphics" in 
the VMS DECwindows Guide to Xlib 
Programming. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 
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Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UISSEXPAND_ICON 


UIS$EXTRACT_HEADER 


UIS$EXTRACT_OBJECT 


UISSEXTRACT_PRIVATE 


UISSEXTRACT_REGION 


UIS$EXTRACT_TRAILER 


UISSFIND_PRIMITIVE 


UIS$SFIND_SEGMENT 
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Xlib Routines 


X$SET_WM_HINTS 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


Explanation 


Generally, the user controls the state 

of the application window. To set the 
initial state of a window, use the property 
routines to communicate to the server. 
In addition, the server honors the hints 
after the window has been created and 
mapped. Thus, if you specify the Initial 
State for the window as X$C_NORMAL _ 
STATE with the X$SET_WM_HINTS, a 
window currently in an icon state will be 
expanded. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 
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Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UIS$GET_ABS_POINTER_POS 


UIS$GET_ALIGNED_ POSITION 
UIS$GET_ARC_TYPE 
UIS$GET_BACKGROUND_ INDEX 


UIS$GET_BUTTONS 


UIS$GET_CHAR_ROTATION 
UIS$GET_CHAR_SIZE 
UIS$GET_CHAR_SPACING 
UIS$GET_CLIP 


UIS$GET_COLOR 
UIS$GET_COLORS 


UIS$GET_CURRENT_OBJECT 


UIS$GET_DISPLAY_SIZE 


UIS$GET_FILL_PATTERN 
UIS$GET_FONT 


UIS$GET_FONT_ATTRIBUTES 


Xlib Routines 


XSQUERY_POINTER 


N/A 
N/A 
N/A 


X$QUERY_POINTER 


N/A 
N/A 
N/A 
N/A 


X$QUERY_COLOR 
X$QUERY_COLORS 


N/A 


Refer to “Explanation”. 


N/A 
N/A 


X$QUERY_FONT 


Explanation 


This function returns the position of the 
pointer relative to the window as well 
as the current state of the modifier keys 
and buttons. Refer to the X/ib Routines 
Reference Manual, Part 1, "Window 
Routines". 


X11 does not provide text formatting 
functions. 


X11 does not provide inquiry functions 
for GCs (the equivalent of UIS ATBs). 


X11 does not provide inquiry functions 
for GCs (the equivalent of UIS ATBs). 


This function returns the position of the 
pointer relative to the window as well 
as the current state of the modifier keys 
and buttons. Refer to the X/ib Routines 
Reference Manual, Part 1, "Window 
Routines”. 


X11 does not provide text rotation. 
X11 does not provide text scaling. 
X11 does not provide text formatting. 


X11 does not provide inquiry functions 
for GCs (the equivalent of UIS ATBs). 


Provides the RGB values for the 
specified index. 


Provides the RGB values for the 
specified index values. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


The X$DISPLAY_WIDTH, 
X$DISPLAY_WIDTH_MM, 
X$DISPLAY_HEIGHT, and 
X$DISPLAY_HEIGHT_MM calls provide 
the information needed to emulate this. 


X11 does not provide inquiry functions 
for GCs (the equivalent of UIS ATBs). 


X11 does not provide inquiry functions 
for GCs (the equivalent of UIS ATBs). 


This routine, as well as 
X$LOOKUP_FONT_WITH_INFO, can 
return information associated with this 
call. 
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Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UIS$GET_FONT_SIZE 


UIS$GET_HW_COLOR_INFO 


UIS$GET_INTENSITIES 
UIS$GET_INTENSITY 
UIS$GET_KB_ATTRIBUTES 


UIS$GET_LINE_STYLE 
UIS$GET_LINE_WIDTH 


UISSGET_NEXT_OBJECT 


UIS$GET_OBJECT_ATTRIBUTES 


UIS$GET_PARENT_SEGMENT 


UIS$GET_POINTER_POSITION 


UIS$GET_POSITION 


UIS$GET_PREVIOUS_OBJECT 
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Xlib Routines 


X$QUERY_FONT 


N/A 


X$QUERY_COLORS 
X$QUERY_COLOR 
X$GET_KEYBOARD_ 
CONTROL 

N/A 

N/A 


N/A 


N/A 


N/A 


X$QUERY_POINTER 


N/A 


NA 


Explanation 


This routine, as well as 
X$LOOKUP_FONT_WITH_INFO, can 
return information associated with this 
call. 


The information returned by this call is 
available through a number of individual 
calls. Refer to the X/ib Routines 
Reference Manual, Part 1, "Display 
Routines". 


Use the X$}QUERY_COLORS routines. 
Use the X$SQUERY_COLOR routines. 


The attributes are not specified in the 
same manner but are available through 
this routine. 


X11 does not provide inquiry functions 
for GCs (the equivalent of UIS ATBs). 


X11 does not provide inquiry functions 
for GCs (the equivalent of UIS ATBs). 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


This function returns the position of the 
pointer relative to the window as well 
as the current state of the modifier keys 
and buttons. Refer to the X/ib Routines 
Reference Manual, Part 1, "Window 
Routines". 


X11 does not provide text formatting 
functions. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 
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Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UIS$GET_ROOT_ SEGMENT 


UIS$GET_TB_INFO 


UIS$GET_TB_POSITION 


UIS$GET_TEXT_FORMATTING 
UIS$GET_TEXT_MARGINS 
UIS$GET_TEXT_PATH 
UIS$GET_TEXT_SLOPE 


UIS$GET_VCM_ID 


UISSGET_VIEWPORT_ICON 


UIS$GET_VIEWPORT_POSITION 


Xlib Routines 


NA 


N/A 


N/A 


N/A 
N/A 
N/A 
N/A 


N/A 


N/A 


X$GET_WINDOW_ 
ATTRIBUTES 


Explanation 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


X11 provides no digitizer support. 
Tablets are supported only as 
replacements for the mouse. 


X11 provides no digitizer support. 
Tablets are supported only as 
replacements for the mouse. 


X11 does not provide text formatting 
functions. 


X11 does not provide text formatting 
functions. 


X11 does not provide text drawing path 
(left-right) functions. 


X11 does not provide text slope 
(rotation) functions. 


X11 has no equivalent function. The 
colormap ID for X11 is the nearest 
equivalent and is returned when the 
colormap is created or the workstation 
default can be returned. In general, the 
X11 colormap is not equivalent to the 
UIS colormap. 


In general, icons are managed by the 
window manager. Communication and 
inquiry are performed via structures 
that provide “hints” to the window 
manager. Refer to "Using Properties” 
in the Guide to Xlib Programming 

to Communicate with the Window 
Manager. The X$SET_WM_HINTS 
routine contains an ICON WINDOW field 
that you can optionally use to supply a 
window that serves as the icon. This 
window ID is user-created. Normally, 
icons are supplied when you provide a 
PIXMAP to be used as the icon display 
data. 


You can obtain a data structure 

that provides information about the 
current position size and other window 
attributes. 
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Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UIS$GET_VIEWPORT_SIZE 


UIS$GET_VISIBILITY 


UISS$GET_WINDOW_ATTRIBUTES 


UIS$GET_WINDOW SIZE 


UIS$GET_WRITING_INDEX 
UIS$GET_WRITING_ MODE 


UIS$GET_WS_COLOR 


UISSGET_WS_INTENSITY 
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Xlib Routines 


X$GET_WINDOW_ 
ATTRIBUTES 


N/A 


X$GET_WINDOW_ 
ATTRIBUTES 


X$GET_GEOMETRY 


N/A 
N/A 


X$LOOKUP_COLOR 


X$LOOKUP_COLOR 


Explanation 


You can obtain a data structure 

that provides information about the 
current position size and other window 
attributes. 


A direct method of obtaining this 
information does not exist in X11. 
Since the X11 application can be notified 
of all requests to expose a window and 
can be notified (after the fact) of any 
window occlusion, the application can 
therefore keep track of the current state 
of visibility. 

You can obtain a data structure 

that provides information about the 
current position size and other window 
attributes. 


You can obtain a data structure 

that provides information about the 
current position size and other window 
attributes. 


X11 does not provide inquiry functions 
for GCs (the equivalent of UIS ATBs). 


X11 does not provide inquiry functions 
for GCs (the equivalent of UIS ATBs). 


DECwindows contains a set of named 
colors. This call returns the closest 
RGB values available for the hardware, 
as well as the ideal RGB values for 
the specified color. Appendix C of the 
Guide to Xlib Programming provides 
the names of the predefined colors for 
DECwindows. 


The intensity is returned as RGB values. 
You can use NTSC to convert the RGB 
values to an intensity. DECwindows 
contains a set of named colors. This 
call returns the closest RGB values 
available for the hardware, as well as 
the ideal RGB values for the specified 
color. Appendix C of the Guide to Xlib 
Programming provides the names of the 
predefined colors for DECwindows. 


Table C—1 (Cont.) 
UIS$ Routines 


UIS$HLS_TO_RGB 


UIS$HSV_TO_RGB 


UISSIMAGE 


UISSINSERT_OBJECT 


UISSLINE 


UISSLINE_ARRAY 


UISSMEASURE_TEXT 


UIS$MOVE_AREA 
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Xlib Routines 


N/A 


N/A 


X$PUT_IMAGE 


N/A 


X$DRAW_SEGMENT 


X$DRAW_SEGMENTS 


X$QUERY_TEXT_EXTENTS 


X$COPY_AREA 


UIS Routines and their Equivalent Xlib Routines 


Explanation 


The X11 RGB system is based on a 
16-bit integer value, while the UIS RGB 
system uses a floating point between 

0 and 1. HLS conversion routines are 
widely available, and one is included 

in Appendix C of A Guide to Migrating 
VWS Applications to DECwindows.. Xlib 
libraries provide no conversion routines. 


The X11 RGB system is based on a 
16-bit integer value, while the UlIS RGB 
system uses a floating point between 

O and 1. HLS conversion routines are 
widely available, and one is included 

in Appendix C of A Guide to Migrating 
VWS Applications to DECwindows. Xlib 
libraries provide no conversion routines. 


Refer to "Drawing Graphics” in the 
VMS DECwindows Guide to Xlib 
Programming. Note that you may 

have to reformat image data unless you 
create and install a colormap for images 
greater than 1 bit deep. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


The X$DRAW_POINT routine is also 
used to draw individual points (zero 
length lines). Refer to "Drawing 
Graphics" in the VMS DECwindows 
Guide to Xlib Programming. 


The X$DRAW_POINTS routine is 
also used to draw individual points 
(zero length lines). Refer to "Drawing 
Graphics" in the VMS DECwindows 
Guide to Xlib Programming. 


X11 provides an equivalent function to 
measure the length of a text string. Note 
that control strings and text formatting 
are not provided for text output. 


This is equivalent to an X$COPY_AREA 
followed by one or more 
X$CLEAR_AREA operations to clear 
the area no longer covered by the area 
moved. Refer to "Drawing Graphics” 

in the VMS DECwindows Guide to Xlib 
Programming. 
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Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UISSMOVE_VIEWPORT 


UIS$MOVE_WINDOW 


UIS$NEW_TEXT_LINE 


UIS$PLOT 


UIS$PLOT_ARRAY 


UISSPOP_VIEWPORT 
UISSPRESENT 


UISSPRIVATE 


UISSPUSH_VIEWPORT 
UISS$READ_CHAR 


UISSRESIZE_WINDOW 
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Xlib Routines 


X$MOVE_WINDOW 


N/A 


N/A 


X$DRAW_LINE 


X$DRAW_LINES 


X$RAISE_WINDOW 
N/A 


N/A 


X$LOWER_WINDOW 
N/A 


X$CHANGE_WINDOW_ 
ATTRIBUTES 


Explanation 


This function changes the location of 
the window on the screen. In X11, this 
function can move the window partially 
ofiscreen. This feature is not possible 
with the UIS call. 


X11 provides no equivalent function, 
since this relocates the display list. 
When no display list is used, it works 
much like UISSMOVE_AREA. 


X11 does not provide text formatting 
functions. 


The X$DRAW_POINT routine is also 
used to draw individual points (zero 
length lines). Refer to "Drawing 
Graphics" in the VMS DECwindows 
Guide to Xlib Programming. 


The X$DRAW_POINTS routine is 
also used to draw individual points 
(zero length lines). Refer to "Drawing 
Graphics” in the VMS DECwindows 
Guide to Xlib Programming. 


These are directly equivalent. 


DECwindows applications are generally 
started with SYS$OUTPUT and given 
a device class of DC$_WORKSTATION 
(device controller type WS). Applications 
should first check for this device 

class as SYSS$OUTPUT. If the 

class is not DC$_WORKSTATION, 

the application should check for a 
logical name DECWS$DISPLAY to 

be defined. If this logical is present, 
the XSOPENDISPLAY call uses this 

as the display destination. If both of 
these options fail, and your application 
supports both UIS and DECwindows, 
you can call UIS$SPRESENT to see if 
UIS is available. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


These are directly equivalent. 


Keyboard input is delivered via the X 
EVENT mechanism. 


You can use this call to resize the X11 
window. 
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Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UIS$RESTORE_CMS_COLORS 


UIS$¢RGB_TO_HLS 


UIS$RGB_TO_HSV 


UIS$SET_ADDOPT_AST 


UIS$SET_ALIGNED_POSITION 
UIS$SET_ARC_TYPE 


UIS$SET_BACKGROUND_INDEX 


UIS$SET_BUTTON_AST 


UIS$SET_CHAR_ROTATION 
UIS$SET_CHAR_ SIZE 
UIS$SET_CHAR_SLANT 
UIS$SET_CHAR_SPACING 


UIS$SET_CLIP 
UIS$SET_CLOSE_AST 


Xlib Routines 


X$INSTALL_COLORMAP 


N/A 


N/A 


N/A 


N/A 
X$SET_ARC_MODE 


X$SET_BACKGROUND 


N/A 


N/A 
N/A 
N/A 
N/A 


X$SET_CLIP_RECTANGLES 
N/A 


Explanation 


This X11 function installs a colormap. 
When you use a private colormap, you 
can use this function to do the binding 
to the hardware. Note that all colors are 
affected by this call. 


The X11 RGB system is based on a 
16-bit integer value, while the UIS RGB 
system uses a floating point between 

0 and 1. HLS conversion routines are 
widely available, and one is included 

in Appendix C of A Guide to Migrating 
VWS Applications to DECwindows. Xlib 
libraries provide no conversion routines. 


The X11 RGB system is based on a 
16-bit integer value, while the UIS RGB 
system uses a floating point between 

O and 1. HLS conversion routines are 
widely available, and one is included 

in Appendix C of A Guide to Migrating 
VWS Applications to DECwindows. Xlib 
libraries provide no conversion routines. 


DECwindows has no additional options 
selection. Use the DECwindows Toolkit 
and the appropriate widget set to find 
equivalent functionality. 


X11 does not provide text formatting 
functions. 


Most of the ARC drawing styles are 
available in X11. 


This ts provided by the appropriate GC 
creation or modification command. Refer 
to the Xiib Routines Reference Manual, 
Part 1, "Graphics Context Routines”. 
The background index is specified in the 
BACKGROUND value in the GC Values 
data structure. 

This is included in X EVENT processing. 
Refer to the X/ib Reference Manual, Part 
1, "Event Routines”. 

X11 does not provide character rotation. 
X11 does not provide character scaling. 
X11 does not provide character slanting. 


X11 does not provide text formatting 
functions. 


This provides a superset of UIS clipping. 


The DECwindows Toolkit contains the 
only equivalent concept in DECwindows. 
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UIS$ Routines and Equivalent Xlib Routines 


Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines Xlib Routines Explanation 
UISSSET_COLOR X$STORE_COLOR X$STORE_COLOR sets the RGB value 


in a previously allocated color cell. 
The RGB values must be converted 
into 16-bit integer values. Refer to the 
Xlib Reference Manual, Part 1, "Color 
Routines”. 


UIS$SET_COLORS X$STORE_COLORS X$STORE_COLORS sets RGB values in 
a list of previously allocated color cells. 
The RGB values must be converted 
into 16-bit integer values. Refer to the 
Xlib Reference Manual, Part 1, "Color 
Routines”. 


UISSSET_EXPAND_ICON_AST N/A You can obtain equivalent X EVENTS 
by using the EVENT MASK in the 
X$CHANGE_WINDOW_ATTRIBUTES 
call. Refer to the X/ib Routines 
Reference Manual, Part 1, "Window 
Routines", for more information. 


UIS$SET_FILL_PATTERN X$SET_STIPPLE UIS fill patterns are the equivalent of 
stipple patterns in X11. A stipple is a 
single-bit deep PIXMAP. The PIXMAP 
must be created and the pattern drawn 
into it. Usually this is accomplished 
with the XSPUT_IMAGE operation. The 
stipple can then be used in a GC as a 
pattern or mask. 


UIS$SET_FONT X$SET_FONT This routine sets a font ID into a GC. 
You must use the X$LOAD_FONT 
routine to obtain the font ID. Refer to the 
Xlib Routines Reference Manual, Part 1, 
"Graphics Context Routines” and Part 2, 
"Font Routines” for information on these 
routines. 


UIS$SET_GAIN_KB_AST N/A Equivalent X EVENTS exist for 
obtaining INPUT FOCUS. Refer to 
"Handling Events” in the Guide to Xlib 
Programming. 

UISSSET_INSERTION_POSITION N/A X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 
or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 
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UIS$ Routines and Equivalent Xlib Routines 


Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UISSSET_INTENSITIES 


UIS$SET_INTENSITY 


UIS$SET_KB_AST 


UIS$SET_KB_ATTRIBUTES 


UIS$SET_KB_COMPOSE2 


UIS$SET_KB_COMPOSE3 


UIS$SET_KB_KEYTABLE 


Xiib Routines 


X$STORE_COLOR 


X$STORE_COLORS 


N/A 


X$CHANGE_KEYBOARD__ 


CONTROL 


X$SET_MODIFIER_MAPPING 


X$SET_MODIFIER_MAPPING 


X$CHANGE_KEYBOARD_ 
MAPPING 


Explanation 


X$STORE_COLOR sets an RGB value 
in a previously allocated color cell. RGB 
values must be converted into 16-bit 
integer values. Derive RGB values by 
using the intensity value for each of the 
RGB components. Refer to the X/ib 
Routines Reference Manual, Part 1, 
"Color Routines”. 


X$STORE_COLORS sets a list of 

RGB values in a list of previously 
allocated color cells. RGB values must 
be converted into 16-bit integer values. 
Derive RGB values by using the intensity 
value for each of the RGB components. 
Refer to the X/ib Routines Reference 
Manual, Part 1, "Color Routines”. 


You can obtain equivalent X EVENTS 
by using the EVENT MASK in the 
X$CHANGE_WINDOW_ATTRIBUTES 
call. Refer to the X/ib Routines 
Reference Manual, Part 1, Window 
Routines” for more information. 


The KB can be remapped as 
appropriate. Note that this is done 

in a completely different fashion in X11. 
Refer to the Xlib Routines Reference 
Manual, Part 2, Window and Session 
Manager Routines” for more information. 


Along with the 
X$CHANGE_KEYBOARD_MAPPING 
routine, this can remap the keyboard 
input. Refer to the X/ib Routines 
Reference Manual, Part 2, Window 
and Session Manager Routines” for 
more information. 


Along with the 
X$CHANGE_KEYBOARD_MAPPING 
routine, this can remap the keyboard 
input. Refer to the X/ib Routines 
Reference Manual, Part 2, "Window 
and Session Manager Routines” for 
more information. 


Along with the 
X$SET_KEYBOARD_MAPPING routine, 
this can remap the keyboard input. 
Refer to the X/ib Routines Reference 
Manual, Part 2, Window and Session 
Manager Routines” for more information. 


C-15 


UIS$ Routines and Equivalent Xlib Routines 


Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines Xlib Routines 
UIS$SET_LINE_STYLE X$SET_LINE_ATTRIBUTES 
UISSSET_LINE_WIDTH X$SET_LINE_ATTRIBUTES 
UIS$SET_LOSE_KB_AST N/A 
UIS$SSET_MOVE_INFO_AST N/A 
UISSSET_POINTER_AST N/A 


UIS$SET_POINTER_PATTERN X$DEFINE_CURSOR 


UIS$SET_POINTER_POSITION X$WARP_POINTER 


UIS$SET_POSITION N/A 


UIS$SET_RESIZE_AST N/A 


UIS$SET_SHRINK_TO_ICON_AST N/A 


UIS$SET_TB_AST N/A 
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Explanation 


Refer to the X/ib Routines Reference 
Manual, Part 1, Graphic Context 
Routines” for more information. 


Refer to the X/ib Routines Reference 
Manual, Part 1, "Graphic Context 
Routines” for more information. 


You can obtain equivalent X EVENTS 
by using the EVENT MASK in the 
X$CHANGE_WINDOW_ATTRIBUTES 
call. Refer to the X/ib Routines 
Reference Manual, Part 1, Window 
Routines” for more information. 


You can obtain equivalent X EVENTS 
by using the EVENT MASK in the 
X$CHANGE_WINDOW_ATTRIBUTES 
call. Refer to the X/ib Routines 
Reference Manual, Part 1, "Window 
Routines” for more information. 


You can obtain equivalent X EVENTS 
by using the EVENT MASK in the 
X$CHANGE_WINDOW_ATTRIBUTES 
call. Refer to the X/ib Routines 
Reference Manual, Part 1, "Window 
Routines" for more information. 


Refer to the X/ib Routines Reference 
Manual, Part 2, "Cursor Routines”, for 
more information. 


Refer to the X/ib Routines Reference 
Manual, Part 2, "Window and Session 
Manager Routines” for more information. 


X11 does not provide text formatting 
functions. 


You can obtain equivalent X EVENTS 
by using the EVENT MASK in the 
X$CHANGE_WINDOW_ATTRIBUTES 
call. Refer to the X/ib Routines 
Reference Manual, Part 1, "Window 
Routines” for more information. 


You can obtain equivalent X EVENTS 
by using the EVENT MASK in the 
X$CHANGE_WINDOW_ATTRIBUTES 
call. Refer to the Xiib Routines 
Reference Manual, Part 1, "Window 
Routines” for more information. 


X11 provides no digitizer support. 
Tablets are supported only as 
replacements for the mouse. 


UIS$ Routines and Equivalent Xlib Routines 


Table C—1 (Cont.) UIS Routines and their Equivalent Xlib Routines 


UIS$ Routines 


UIS$SET_TEXT_FORMATTING 
UIS$SET_TEXT_MARGINS 
UIS$SET_TEXT_PATH 
UIS$SET_TEXT_SLOPE 


UIS$SET_WRITING_ MODE 


UIS$SHRINK_TO_ICON 


UIS$SOUND_BELL 


UIS$SOUND_ CLICK 
UIS$TEST_KB 


UIS$TEXT 


UISSTRANSFORM_OBJECT 


Xlib Routines 


N/A 
N/A 
N/A 
N/A 


X$SET_FUNCTION 


X$SET_WM_HINTS 


X$BELL 


N/A 
N/A 


X$DRAWTEXT 


N/A 


Explanation 


X11 does not provide text formatting 
functions. 


X11 does not provide text formatting 
functions. 


X11 does not provide text formatting 
functions. 


X11 does not provide text formatting 
functions. 


This is provided by the appropriate 

GC creation or modification command. 
Refer to the X/ib Routines Reference 
Manual, Part 1, "Graphics Context 
Routines” for more information. The 
FUNCTION is the actual logical operator 
used for the operation. UIS "modes" 
are a combination of FUNCTION, FILL 
STYLE, FILL STIPPLE, FOREGROUND, 
and BACKGROUND pixel values. A 
routine that shows the mapping for 
most UIS writing modes is provided in 
Appendix G of A Guide to Migrating 
VWS Applications to DECwindows. 


The state of the application is generally 
controlled exclusively by the user. Set 
the initial state of a window by using 
the property routines to communicate 
to the server. In addition, the server 
honors the hints after the window has 
been created and mapped. Thus, if 
you specify the Initial State for the 
window as X$C_ICONIC STATE, a 
window currently in a window state will 
be iconified. 


Refer to the X/ib Routines Reference 
Manual, Part 2, "Window and Session 
Manager Routines” for more information. 


The keyclick cannot be sounded in X11. 


Applications should keep track of this 
through the X EVENT mechanism for 
INPUT focus gain and lose events. 


X11 routines doe not provide any of the 
text formatting or control lists provided 
by UIS. 


X11 provides no equivalents to the UIS$ 
display list routines. Programmers must 
supply their own display list routines 

or reprogram in a higher-level graphic 
interface such as GKS or PHIGS. 


C-17 


D 


UISDC$ Routines and Equivalent Xlib Routines 


This appendix lists UISDC$ routines with their equivalent Xlib routines 
and describes their functionality. 





D.1 


Introduction to UISDC$ Routines 


In addition to the world coordinate interface (UIS), VWS provides a 
device-coordinate, or pixel-level, interface (UISDC) to the graphics system 
services. 


When an application programs in device coordinates, it must make mixed 
use of UIS$ and UISDC$ routines. Only UIS$ routines that use or modify 
world coordinate positions are duplicated as UISDC$ routines. Most 
informational, attribute, windowing, and display routines exist only in UIS 
format and are shared by the two programming levels. 


Table D~1 gives UISDC$ routines with their equivalent Xlib routines, and 
an explanation of the routine functionality. 


NOTE: If an equivalent Xlib routine does not exist, this is indicated in the 


table by N/A. 


Table D-1 UISDC$ Routines and their Equivalent Xlib Routines 


UISDC$ Routines 
UISDCS$ALLOCATE_DOP 


UISDCS$CIRCLE 


UISDCS$ELLIPSE 


Xlib Routines 
N/A 


Explanation 


The DOP interface is a device- 
dependent mechanism that queues 
drawing packets to the VSII/GPX 
and VS2000/GPX. No comparable 
hardware interface exists under X11. 


X$DRAW_ARC Use the Xlib draw arc routine to draw 
circles. Refer to "Drawing Graphics” in 
the VMS DECwindows Guide to Xlib 


Programming for more information. 


X$DRAW_ARC Use the Xlib draw arc routine to draw 
ellipses. Refer to "Drawing Graphics 
in the VMS DECwindows Guide to XIib 


Programming for more information. 


UISDC$ Routines and Equivalent Xlib Routines 


Table D—1 (Cont.) UISDC$ Routines and their Equivalent Xlib Routines 


UISDC$ Routines 


UISDCSERASE 


UISDCS$EXECUTE_DOP_ASYNCH 


UISDC$EXECUTE_DOP_SYNCH 


UISDC$GET_ALIGNED_ 
POSITION 


UISDC$GET_CHAR_SIZE 
UISDC$GET_CLIP 


UISDC$GET_POINTER__ 
POSITION 


UISDC$GET_POSITION 
UISDC$GET_TEXT_MARGINS 


UISDC$GET_VISIBILITY 


Xlib Routines 


X$CLEAR_AREA 


N/A 


N/A 


N/A 
N/A 
N/A 


XSQUERY_POINTER 


N/A 
N/A 


N/A 


Explanation 


Clear Area and Clear Window routines 
are both provided to erase portions of 
windows. Note that you cannot use 
the Clear Area function on a PIXMAP; 
instead, a filled rectangle the size of 
the screen in the background color 

is also equivalent. Refer to "Drawing 
Graphics" in the VMS DECwindows 
Guide to Xlib Programming for more 
information. 


The DOP interface is a device- 
dependent mechanism that queues 
drawing packets to the VSII/GPX 
and VS2000/GPX. No comparable 
hardware interface exists under X11. 


The DOP interface is a device- 
dependent mechanism that queues 
drawing packets to the VSII/GPX 
and VS2000/GPX. No comparable 
hardware interface exists under X11. 


X11 provides no text formatting or 
the concept of a current text-writing 
position. 


X11 does not provide text scaling. 


X11 does not provide query routines 
for GCs. 


This function returns the position of 
the pointer relative to the window. It 
also returns the the current state of the 
modifier keys and buttons. Refer to the 
Xlib Routines Reverence Manual, Part 
1, "Window Routines’. 


X11 provides no text formatting. 


X11 provides no text formatting or the 
concept of text margins. 


Since an X11 application can be 
notified of all requests to expose a 
window and can be notified of the 
occluding of a window after the fact, 
there is no direct way to obtain this 
information. However, the application 
can keep track of the current state of 
visibility. 


UISDC$ Routines and Equivalent Xlib Routines 


Table D—1 (Cont.) UISDC$ Routines and their Equivalent Xlib Routines 


UISDC$ Routines 


UISDCSIMAGE 


UISDC$LINE 


UISDC$LINE_ARRAY 


Xlib Routines 


X$PUT_IMAGE 


X$DRAW_SEGMENT 


X$DRAW_SEGMENTS 


Explanation 


Refer to "Drawing Graphics” in the 
VMS DECwindows Guide to Xlib 
Programming. Note that image data 
may require reformatting unless you 
create and install a colormap for 
images greater than 1 bit deep. 


Refer to "Drawing Graphics” in the 
VMS DECwindows Guide to Xlib 
Programming tor more information. 


Refer to "Drawing" Graphics 


in the VMS DECwindows Guide to Xlib Programming for more information.) 


UISDC$LOAD_BITMAP 


UISDCS$MEASURE_TEXT 


UISDCS$MOVE_AREA 


UISDC$NEW_TEXT_LINE 
UISDC$PLOT 


UISDC$PLOT_ARRAY 


UISDC$QUEUE_DOP 


UISDCS$READ_IMAGE 


UISDC$SET_ALIGNED_POSITION 


UISDC$SET_BUTTON_AST 


N/A 


X$QUERY_TEXT_EXTENTS 


X$COPY_AREA 


N/A 
X$DRAW_LINE 


X$DRAW_LINES 


N/A 


X$GET_IMAGE 


NWA 


N/A 


This routine loads a user bitmap into 
offscreen video memory. In some 
ways, this is similar to the X11 concept 
of a PIXMAP, but the concepts differ. 
The principal use for this under UIS 

is to load font data for drawing with 
DOPs. 


X11 provides an equivalent function 
to measure the length of a text string. 
Note that control strings and text 
formatting are not provided for text 
4output. 

Refer to "Drawing Graphics” in the 


VMS DECwindows Guide to Xlib 
Programming for more information. 


X11 provides no text formatting. 


Refer to "Drawing Graphics" in the 
VMS DECwindows Guide to Xlib 
Programming for more information. 


Refer to "Drawing Graphics” in the 
VMS DECwindows Guide to Xlib 
Programming for more information. 


The DOP interface is a device- 
dependent mechanism that queues 
drawing packets to the VSII/GPX 
and VS2000/GPX. No comparable 
hardware interface exists under X11. 


Since the bitmap contents are not 
guaranteed under X11, be extremely 
cautious when you use this function. 


X11 provides neither text formatting 
nor the concept of a current text-writing 
position. 

This is part of X EVENT processing. 
Refer to the X/ib Routines Reference 
Manual, Part 1, "Event Routines". 


UISDC$ Routines and Equivalent Xlib Routines 


Table D—1 (Cont.) UISDC$ Routines and their Equivalent Xlib Routines 


UISDC$ Routines Xlib Routines 
UISDC$SET_CHAR_SIZE N/A 

UISDC$SET_CLIP X$SET_CLIP_RECTANGLES 
UISDC$SET_POINTER_AST N/A 


UISDC$SET_POINTER_PATTERN X$DEFINE_CURSOR 


UISDC$SET_POINTER_POSITION X$QUERY_POINTER 


UISDC$SET_POSITION N/A 
UISDC$SET_TEXT_MARGINS N/A 
UISDC$TEXT X$DRAW_TEXT 
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Explanation 


X11 does not provide text scaling. 


X11 provides a superset of UIS 
clipping. 

You can accomplish equivalent 

X EVENTS by using the 

EVENT MASK in the 
X$CHANGE_WINDOW_ATTRIBUTES 
call. Refer to the X/ib Routines 
Reference Manual, Part 1, "Window 
Routines", for more information. 


Refer to the X/ib Routines Reference 
Manual, Part 2, "Cursor Routines”, for 
more information. 


This function returns the position of the 
pointer relative to the window; it also 
returns the current state of the modifier 
keys and buttons. Refer to the X/ib 
Routines Reference Manual, Part 1, 
"Window Routines". 


X11 provides no text formatting. 


X11 provides no text formatting or the 
concept of text margins. 


The X11 routines do not provide any 
of the text formatting or control lists 
provided by UIS. 


HCUIS$ Routines and Equivalent Xlib Routines 


This appendix lists HCUIS$ routines with their equivalent Xlib routines 
and describes thier funtionality. 





introduction to HCUISS Routines 


Table E-1 gives HCUIS$ routines with their equivalent Xlib routines, and 
an explanation of the routine functionality. 


Note: If an equivalent Xlib routine does not exist, this is indicated in the 
table by N/A. 


Table E-1 HCUIS$ Routines and their Equivalent Xlib Routines 


HCUIS$ Routines Xlib Routines Explanation 

HCUIS$BEGIN_TRANSLATOR N/A DECwindows does not support a hardcopy library. 
HCUISS$END_TRANSLATOR N/A DECwindows does not support a hardcopy library. 
HCUIS$RED_BUFFER N/A DECwindows does not support a hardcopy library. 
HCUIS$READ_DISPLAY N/A DECwindows does not support a hardcopy library. 
HCUISSTRANSLATE N/A DECwindows does not support a hardcopy library. 
HCUISSWRITE_BUFFER N/A DECwindows does not support a hardcopy library. 
HCUISSWRITE_DISPLAY N/A DECwindows does not support a hardcopy library. 





FE Sample FORTRAN Program (QIX.FOR) 


This appendix contains two versions of a sample FORTRAN program and 
a summary report. The first version is the original program before the 
user ran it through the Annotator. The second version is the annotated 
program. The Annotator also produced the summary report for the 
program it annotated. 





F.1 The Original FORTRAN Program 


This section shows the original FORTRAN program before the user ran it 
through the Annotator: 


PROGRAM QOIX 
KKK KIKI KK KKK KKK KK KIKI KK IKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKKKEKEKKKEKKIRA 


COPYRIGHT © 1983, 1985, 1986, 1987 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND 
COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE 
AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR 
OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND 
OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY 
DIGITAL EQUIPMENTCORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eananqaganaanaaanaadaanaaaannanaa 
+ + + + + FF FF F HF F HF HF FF HF HF FF OF 
+ * & & + + 4% 4 + + HY RH F HF HF OF F OF F 


KEKEKKKEKKKEKKKKKEKKKKEKEKEKEKEKEKKEKKKKKEKEKEKKEKEKEEKKKKKEKKEKKEKEKERER 


FACILITY: 
Qix demo for VaxStation II 


! 
! 
! 
! 
! ABSTRACT: 

! This program is an animation demo that moves a bunch of lines around 

! within the window. There are 10 lines. The line currently at the front 
! ef the bunch is repeatedly erased then redrawn at the rear of the bunch 
! to create the illusion that the lines are moving. When the lines 

! hit any side of the window, they are deflected off. 

! 

! 

! 


! Implicit inputs 
IMPLICIT INTEGER (A~Z) 


! Include files 


INCLUDE ’SYSSLIBRARY: VISUSRDEF’ 
INCLUDE ’SYSSLIBRARY: UISENTRY’ 
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Sample FORTRAN Program (QIX.FOR) 


t Declare AST routines as external 


EXTERNAL enable window _resize 


t Declarations 


REAL VP_WIDTH, VP_HEIGHT,A(100,2),B(100,2),XL2,we_x1,we_yl 
REAL we x2,we_y2 


! Declare global variables 


COMMON we _xl1,we_yl,wce_x2,we_y2,vp_width, vp_height 
COMMON new _abs _ x,new_abs y,wd_id,vd_id 


! Constants 
! 
NUMLINES = 10 ! number of lines drawn 
MAXLINELEN = 1024 
WID = 1024 ! Initial sid of cube 
LEN = 860 ! Initial length of cube 
we _X1 = 0. ! World coordinate X1 of viewport 
we Yl = 0. ! World coordinate Yl of viewport 
we_X2 = 1024 ! World coordinate X2 of viewport 
we_Y2 = 860 ! World coordinate Y2 of viewport 
Cc 
C Prompt the user for the viewport dimensions. Do not allow the user to 
C specify viewport dimensions of less than 3/10 of a cm or greater than 70 cr 
Cc 
PRINT *,’ENTER DESIRED WIDTH AND HEIGHT OF VIEWPORT (IN CENTIMETERS) ' 
ACCEPT *,VP_WIDTH, VP_HEIGHT 
IF (vp_width .LT. .30) THEN 
vp width = .30 
ELSE IF (vp_width .GT. 70) THEN 
vp_width = 70 
END IF 
Le (vp_height -LT. .30) THEN 
vp_height = .30 
ELSE IF (vp_height .GT. 70) THEN 
vp_height = 70 
END IF 
Cc 
C Create the display and window. Enable the window resize option. 
Cc 
CALL UISSGET_HW_COLOR_INFO(’ SYSSWORKSTATION’,, 
1 ~ VCM_ SIZE) 
VCM_SIZE=16 
IF (VCM_SIZE .EQ. 2) GOTO 55 
VCM_SIZE = VCM_SIZE/4 
IF (VCM_SIZE .LT. NUM_LINES) GOTO 55 
NUM_LINES = 20 
55 VCM_ID = UISS$CREATE_COLOR_MAP (VCM_SIZE) 
VD_ID = UIS$CREATE DISPLAY (WC_X1,WC_Y1,WC_X2,WC_Y2, 
a VP_WIDTH, VP_HEIGHT, VCM_ID) 
CALL UISSDISABLE_DISPLAY_LIST(VvD_ID) 
CALL CREATE COLORS (VCM_SIZE,VD_ID) 
WD_ID = UISS$CREATE_WINDOW(VD_ID, ’SYSSWORKSTATION’ , ’ QIX’ ) 
CALL UISSSET_RESIZE_ AST (vd_id,wd_id, ENABLE WINDOW _RESIZE, dummy, 
1 new_abs_ x,new_abs_y,vp_width,vp_height) 
Cc 
C ATTRIBUTE BLOCK 0 = WRITING MODE OVERLAY 
C ATTRIBUTE BLOCK 1 = WRITING MODE ERASE 
Cc 
CALL UISSSET WRITING MODE(VD_ID, 0, 1, 9) 
Cc 
C Randomize the initial endpoints of the cube. 
Cc 
Al = INT (RAN (IX) *WID) 
A2 = INT (RAN (IX) *LEN) 
Bl = INT (RAN (IX) *WID) 
B2 = INT (RAN (IX) *LEN) 


F—2 


66 
10 


dé 


pes) 


3 hy 


20 


agaaqaaa 


Sample FORTRAN Program (QIX.FOR) 


CALL RANXY (A1LMOD, A2MOD) 
CALL RANXY (B1MOD, B2MOD) 
ERASE = .FALSE. 


DO 66 L = 2,VCM SIZE+2-1 
CALL UIS$SET WRITING INDEX (VD_ID,0,L,L-2) 
CONTINUE 


DO 20 L = 1,NUMLINES 


IF (ERASE) THEN 
CALL UISSPLOT(VD_ID, 1, A(L,1),A(L,2),B(L,1),B(L, 2) ) 
R=R+1.0 


ENDIF 

OLDA1 = Al 
OLDA2 = A2 
OLDB1 = Bl 
OLDB2 = B2 


CALL NEWPT(Al,A1MOD,A2,A2MOD) 
L2 = (((A1+B1)/4)**2) + ((A2+B2) **2) 
XL2 = L2 
XL2 = SORT (XL2) 
LINELEN = JIFIX(XL2) 


If (LINELEN .LE. MAXLINELEN) GOTO 15 
CALL RANXY (A1MOD, A2MOD) 

Al = OLDA1 

AZ = OLDA2 

GOTO 12 


CALL NEWPT (Bl, BIMOD,B2,B2MOD) 


L2 = (((A1+B1)/4)**2) + ( (A2+B2) **2) 
XL2 = L2 

XL2 = SORT (XL2) 

LINELEN = JIFIX (XL2) 


If (LINELEN .LE. MAXLINELEN) GOTO 17 
CALL RANXY (B1MOD, B2MOD) 


Bl = OLDB1 
B2 = OLDB2 
GOTO 15 
A(L,1) = Al 
A(L,2) = A2 
B(L,1) = Bl 
B(L,2) = B2 


CALL UISSPLOT(VD_ID, COUNTER, A(L,1),A(L,2),B(L,1),B(L,2)) 
TYPE *,’DRAW LINE FROM (’,A1,’,’,A2,’) TO (’,B1,’,’,B2,’)’ 
COUNTER=COUNTER+1 

IF (COUNTER .LT. VCM SIZE+2) GOTO 20 

COUNTER = 2 

CONTINUE 


ERASE = .TRUE. 
GOTO 10 


END 


SUBROUTINE RANXY (X, Y) 


This subroutine randomizes the values of the integers x and y 
that are passed as input. 


INTEGER X,Y 
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Sample FORTRAN Program (QIX.FOR) 
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ISTP = 40 

X = INT(RAN(IX)*ISTP) - (ISTP/2) 

Y = ISTP/2 ~ ABS (X) 

IF (RAN(IX) .GT. 0.5) Y= Y * (+1) 
RETURN 

END 


SUBROUTINE enable window _resize 


This is the AST routine for the window resize. It will not allow 
the user to make the window dimensions less than 3/10 centimeter. 


COMMON we_x1,we_yl,we_x2,wce_y2,vp_width,vp_height 
COMMON new_abs x,new_abs_ y,wd_id,vd_id 


IF (vp_width .LT. .25) vp_width = .25 

IF (vp_height .LT. .25) vp_height = .25 

CALL UISSRESIZE_WINDOW(vd_id,wd_id,new_abs x,new_abs y, 
1 vp_width,vp_height, 

2 we_xl,we_yl,we_x2,wc_y2) 

RETURN 

END 


SUBROUTINE NEWPT (X, XMOD, Y, YMOD, MAX) 


This subroutine computes new values for the coordinates x and y that 
are passed as input. If the coordinates of the new point computed 

are greater than 1024 (WID) or 860 (LEN), then the lines have hit the 
walls of the window. In such a case, the coordinates are recomputed. 


INTEGER X, Y, XMOD, YMOD 
INTEGER XSAV, YSAV 


XSAV = X 

YSAV = Y 

x = X + XMOD 

IF ((X .GT. 1024) .OR. (X .LT. 0)) GOTO 100 
Y = Y + YMOD 

IF ((Y .GT. 860) .OR. (¥ .LT. 0O)) GOTO 100 
RETURN 


CALL RANXY (XMOD, YMOD) 

X = XSAV 

Y = YSAV 
GOTO 50 


END 
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The Annotated FORTRAN Program 


This section shows the annotated program: 


aAaaganangnnanananaannanaaaanan 


! 
! 


! 
{ 
°° 


to te 


PROGRAM QIX 
Be tee Ae he te ke te ke te te ee he ie KK Ie eK KK KK HK BK KK IK KK KKK KIKI HK KKK KKK KKAKKAKKEKKKEKKERKE KEKE 


COPYRIGHT © 1983, 1985, 1986, 1987 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND 
COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE 
AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR 
OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND 
OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY 
DIGITAL EQUIPMENTCORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


+ + + + + + + + HF + FF 4+ + + FF HF OF OF 
+ + + + + FH FF F HF FF FF HF OF OF HF OF OF 


KKKEKKKKKKEEKERKKKEKKEEKKEKKEKEKREKKEKKKEEREREEKEKEKEKEKEKEKEKKERKEKEKKREKKKRKEK 


++ 


FACILITY: 
Qix demo for VaxStation II 


ABSTRACT: 
This program is an animation demo that moves a bunch of lines around 
within the window. There are 10 lines. The line currently at the front 
of the bunch is repeatedly erased then redrawn at the rear of the bunch 
to create the illusion that the lines are moving. When the lines 
hit any side of the window, they are deflected off. 


Implicit inputs 
IMPLICIT INTEGER (A-2) 


Include files 


INCLUDE ’SYSSLIBRARY:UISUSRDEF’ 
INCLUDE ’SYSSLIBRARY:VISENTRY’ 


Declare AST routines as external 


EXTERNAL enable window _resize 


Declarations 


REAL VP_WIDTH, VP_HEIGHT,A(100,2),B(100,2),XL2,we_xl,we_yl 
REAL wo_x2,we_y2 
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Cc 


Declare global variables 


COMMON wcec_xl,we_yl,wc_x2,we_y2,vp_width, vp_height 
COMMON new _abs_x,new_abs_y,wd_id,vd_id 


Constants 
NUMLINES = 10 ! number of lines drawn 
MAXLINELEN = 1024 
WID = 1024 ! Initial wid of cube 
LEN = 860 ! Initial length of cube 
wo Xl = 0. ! World coordinate X1l of viewport 
we Yl = 0. ! World coordinate Y1l of viewport 
WC _X2 = 1024 ! World coordinate X2 of viewport 

! 


wc_Y2 = 860 World coordinate Y2 of viewport 


C Prompt the user for the viewport dimensions. Do not allow the user to 
C specify viewport dimensions of less than 3/10 of a cm or greater than 70 ¢c) 


Cc 


qq ana 


Aeqdaagqann 


qa 
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PRINT *,’ENTER DESTRED WIDTH AND HEIGHT OF VIEWPORT (IN CENTIMETERS) 

ACCEPT *,VP_WIDTH, VP_HEIGHT 

IF (vp_ width .LT. .30) THEN 
vp_width = .30 

ELSE IF (vp_width .GT. 70) THEN 
vp_width = 70 

END IF 

IF (vp_height .LT. .30) THEN 
vp_height = .30 

ELSE IF (vp_height .GT. 70) THEN 
vp_height = 70 

END IF 


Create the display and window. Enable the window resize option. 


%UIS% Information is available through a number of individual 
calls - Please see "Display Routines". 
CALL UIS$GET_HW_COLOR_INFO(’ SYSSWORKSTATION’,, 
1 VCM_SIZE) 
VCM SIZE=16 
IF (VCM_SIZE .EQ. 2) GOTO 55 
VCM_SIZE = VCM_SIZE/4 
IF (VCM_SIZE .LT. NUM_LINES) GOTO 55 
NUM_LINES = 20 
%UIS% Color maps may be created by using the XS$ALLOC_COLOR_CELLS. 
VCM_ ID = UISSCREATE_COLOR_MAP (VCM_SIZE) 
%UIS% No equivalent routine exists. 
VD_ID = UISSCREATE DISPLAY (WC_X1,WC_Y1,WC_X2,WC_Y2, 
8 VP_WIDTH, VP_HEIGHT, VCM_ID) 
%UIS% X11 provides no equivalents to the UIS$ display list routines. 
CALL UISSDISABLE DISPLAY _LIST(VD_ID) 
CALL CREATE COLORS (VCM_SIZE,VD_ID) 
%UIS% Please see information on virtual displays. 
WD_ID = UISSCREATE_ WINDOW (VD_ID,’SYSSWORKSTATION’ , ’ QIX’ ) 
SUIS% There are equivalent X events. 
CALL UISSSET_RESIZE_AST(vd_id,wd_id,ENABLE_WINDOW_RESIZE, dummy, 
1 new_abs _ x,new_abs y,vp_width,vp_ height) 


ATTRIBUTE BLOCK 0 = WRITING MODE OVERLAY 
ATTRIBUTE BLOCK 1 = WRITING MODE ERASE 


%UIS% UISSWRITING MODE is similar to X$SET_ FUNCTION or X$CHANGE GC. 
CALL UISSSET WRITING MODE(VD_ID, 0, 1, 9) 


Randomize the initial endpoints of the cube. 


Al = INT (RAN (IX) *WID) 
A2 = INT (RAN (IX) *LEN) 
Bl = INT (RAN (IX) *WID) 
B2 = INT (RAN (IX) *LEN) 


66 
10 


L2 


15 


17 


20 


gaan 
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CALL RANXY(A1MOD,A2MOD) 
CALL RANXY (B1MOD,B2MOD) 
ERASE = .FALSE. 


DO 66 L = 2,VCM_SIZE+2-1 


SUIS% UISSWRITING INDEX is similar to X$SET_FOREGROUND or X$CHANGE_GC. 


CALL UISSSET WRITING INDEX(VD_ID,0,L,L-2) 
CONTINUE 


DO 20 L = 1,NUMLINES 


IF (ERASE) THEN 


SUIS% UISSPLOT is similar to X$DRAW_LINE, X$DRAW_LINES or X$DRAW_POINT. 


CALL UISS$PLOT(VD_ID, 1, A(L,1),A(L,2),B(L,1),B(L,2)) 
R=R+1.0 


ENDIF 

OLDA1 = Al 
OLDA2 = A2 
OLDB1 = Bl 
OLDB2 = B2 


CALL NEWPT (Al, A1MOD,A2,A2MOD) 
L2 = (((A1+B1) /4) **2) + ((A2+B2) **2) 
XL2 = L2 
XL2 = SORT (XL2) 
LINELEN = JIFIX (XL2) 


If (LINELEN .LE. MAXLINELEN) GOTO 15 
CALL RANXY(A1MOD, A2MOD) 

Al = OLDAI 

A2 = OLDA2 

GOTO 12 


CALL NEWPT (B1,B1MOD,B2,B2MOD) 


L2 = (((A1+B1)/4)**2) + ((A2+B2) **2) 
XL2 = L2 

XL2 = SQRT(XL2) 

LINELEN = JIFIX (XL2) 


If (LINELEN .LE. MAXLINELEN) GOTO 17 
CALL RANXY (B1MOD, B2MOD) 

Bl = OLDB1 

B2 = OLDB2 

GOTO 15 


A(L,1) = Al 
A(L,2) = A2 
B(L,1) = Bl 
B(L,2) = B2 


%SUIS% UISSPLOT is similar to X$DRAW_LINE, XSDRAW_LINES or XSDRAW POINT. 


CALL UISSPLOT(VD_ID, COUNTER, A(L,1),A(L,2),B(L,1),B(L, 2) ) 
TYPE *,’DRAW LINE FROM (’,A1,’,’,A2,’) TO (’,B1,’,’,B2,")’ 
COUNTER=COUNTER+1 

IF (COUNTER .LT. VCM_SIZE+2) GOTO 20 

COUNTER = 2 

CONTINUE 


ERASE = .TRUE. 
GOTO 10 
END 


SUBROUTINE RANXY (X, Y) 


This subroutine randomizes the values of the integers x and y that 
are passed as input. 


INTEGER X,Y 


F—7 


Sample FORTRAN Program (QIX.FOR) 


F—8 
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Cc 


gaqaqaagaanaAN 


50 


100 


ISTP = 40 

X = INT(RAN(IX)*ISTP) - (ISTP/2) 

Y = ISTP/2 - ABS (xX) 

IF (RAN(IX) .GT. 0.5) Y= Y * (-1) 
RETURN 

END 


SUBROUTINE enable window_resize 


This is the AST routine for the window resize. It will not allow th 
user to make the window dimensions less than 3/10 centimeter. 


COMMON we_xl,we_yl,we_x2,we_y2,vp_width,vp_ height 
COMMON new_abs x,new_abs_ y,wd_id, vd_id 


IF (vp_width .LT. .25) vp_width = .25 
IF (vp_height .LT. .25) vp_height = .25 


SUIS UISSRESIZE WINDOW is similar to X$CHANGE WINDOW_ATTRIBUTES. 


CALL UISSRESIZE WINDOW(vd_id,wd_id,new_abs_ x,new_abs_y, 
1 vp_width,vp_ height, 

2 we_xl1,we_yl,we_x2,we_y2) 

RETURN 

END 


SUBROUTINE NEWPT (X, XMOD, Y, YMOD, MAX) 


This subroutine computes new values for the coordinates x and y that 
are passed as input. If the coordinates of the new point computed 

are greater than 1024 (WID) or 860 (LEN), then the lines have hit th 
walls of the window. In such a case, the coordinates are recomputed 


INTEGER X, Y, XMOD, YMOD 
INTEGER XSAV, YSAV 


XSAV = X 
YSAV = Y 

X = X + XMOD 

IF ((X .GT. 1024) .OR. (X .LT. 0)) GOTO 100 
Y = Y + YMOD 

IF ((¥ .GT. 860) .OR. (¥ .LT. 0)) GOTO 100 
RETURN 


CALL RANXY (XMOD, YMOD) 
X = XSAV 

Y = YSAV 

GoTo 50 


END 


Sample FORTRAN Program (QIX.FOR) 





F.3 The Summary Report 


This section shows the Summary Report the Annotator produced for the 
FORTRAN program it annotated: 


QIx.LOG 
Date : 22-NOV-89, Time : 08:51:02 


This report is the result of a simple search of the following files 
searching for UISS$xxx calls within programs. A summary will 
appear at the end of this report. 


>>> Examining : DISK5: [WINGATE .UISANN.SRC]QIX.FOR 
=== Creating : DISK5: [WINGATE .UISANN.SRC]QIX.FOR 


Found: 1 - UISS$CREATE_COLOR_MAP 
Color maps may be created by using the X$ALLOC_COLOR_CELLS. 


Found: 1 - UISSCREATE_ DISPLAY 
No equivalent routine exists. 


Found: 1 - UISSCREATE_WINDOW 
Please see information on virtual displays. 


Found: 1- UISSDISABLE DISPLAY LIST 
X11 provides no equivalents to the UISS$ display list routines. 


Found: 1 - UIS$GET_HW_COLOR_INFO 
Information is available through a number of individual calls 
- Please see "Display Routines". 


Found: 2 - UISSPLOT 
UISSPLOT is similar to X$DRAW_LINE, XSDRAW_LINES or XS$DRAW_POINT. 
Found: 1l- UISSRESIZE WINDOW 
UISSRESIZE_ WINDOW is similar to X$CHANGE WINDOW ATTRIBUTES. 
Found: 1 - UISS$SET_RESIZE_AST 
There are equivalent X events. 
Found: 1 - UISS$SET WRITING INDEX 
UISS$SET_WRITING_INDEX is similar to X$SET_FOREGROUND or XS$CHANGE GC. 
Found: 1 - UIS$SET WRITING MODE 
UISSSET WRITING MODE is similar to X$SET FUNCTION or X$CHANGE_GC. 
* Total Lines read in : 245 
* Total UIS calls (of any type) detected : 11 

*x*x* Summary Information ----erere------- a ad a a lth 
* Total UIS calls (of any type) - all files : 11 
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G Sample Pascal Program (UISDC_HOUSE.PAS) 


This appendix contains two versions of a sample Pascal program and 

a summary report. The first version is the original program before the 
user ran it through the Annotator. The second version is the annotated 
program. The Annotator also produced the summary report for the 
program it annotated. 





G.1 The Original Pascal Program 


This section shows the original Pascal program before the user ran it 
through the Annotator: 


[INHERIT (’SYSSLIBRARY:UISENTRY.PEN’,’SYSSLIBRARY:UISUSRDEF .PEN’, 
‘ SYSSLIBRARY : STARLET.PEN’ ) ] 


COPYRIGHT © 1989 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


} 
PROGRAM HOUSE (INPUT, OUTPUT) ; 


rN RA eR OS eR i eS Oe RR en tn tn pt A rin 


VAR 

VCM_ID, WD_ID, VD_ID : UNSIGNED; 
RETWIDTH,RETHEIGHT : REAL; 

RETRESOLX, RETRESOLY : REAL; 

RETPWIDTH, RETPHEIGHT : INTEGER; 

MAX X, MAX_Y : REAL; 

CHAR WIDTH, CHAR_HEIGHT : INTEGER; 

I : CHAR; 

SCALING : BOOLEAN; 

RED COLORS, GREEN COLORS, BLUE_COLORS : ARRAY [1..6] OF REAL; 
X ARRAY, Y ARRAY : ARRAY [1..20] OF INTEGER; 


BEGIN 
UIS$GET DISPLAY SIZE (’SYSS$WORKSTATION’ , RETWIDTH, RETHEIGHT, RETRESOLX, 
RETRESOLY, RETPWIDTH, RETPHEIGHT) ; 


MAX _X := 22.0 * RETRESOLX; 
MAX Y := 22.0 * RETRESOLY; 


VCM_ID := UISSCREATE_COLOR_MAP (6) ; 

VD_ID := UISS$CREATE DISPLAY(0.0,0.0,MAX_X, MAX_Y, RETPWIDTH, RETPHEIGHT, 
VCM_ID) ; 

RED _COLORS[1] := 1.0; 

GREEN_COLORS[1] := 1.0; 

BLUE_COLORS[1] := 1.0; 
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RED COLORS [2] 


GREEN COLORS [2] 
BLUE COLORS [2] 


RED COLORS [3] 


GREEN COLORS [3] 
BLUE COLORS [3] 


RED_COLORS [4] 


GREEN COLORS [4] 
BLUE COLORS [4] 


RED COLORS [5] 


GREEN COLORS [5] 
BLUE COLORS [5] 


RED COLORS [6] 


GREEN COLORS [6] 
BLUE COLORS [6] 


UISSSET_ COLORS (VD_ID, 0, 


6, RED COLORS, GREEN COLORS, BLUE_COLORS) ; 


WD_ID := UISSCREATE_WINDOW(VD_ID, ’SYSSWORKSTATION’,’Have A Nice Day’); 


UISSSET WRITING _INDEX(VD_ID, 
UIS$SET WRITING INDEX(VD_ID, 
UIS$SET WRITING INDEX(VD_ID, 
UIS$SET WRITING _INDEX(VD_ID, 


f 


f 


, 


oOoo°o 


gs 


1, 
2, 
3, 
4, 


2); 
3); 
4); 
5); 


UISSSET_FONT(VD_ID, 1, 1, ’UISSFILL_PATTERNS’ ) ; 
UISSSET FILL PATTERN(VD_ID, 1, 1, PATTS$C_FOREGROUND) ; 
UISSSET FONT(VD_ID, 2, 2, ‘UISSFILL PATTERNS’) ; 
UISSSET_FILL_PATTERN(VD_ID, 2, 2, PATTS$C_FOREGROUND) ; 


UISSSET FONT(VD_ID, 3, 3, 


‘UISSFILL PATTERNS’ ) ; 


UISSSET FILL PATTERN(VD_ID, 3, 3, PATT$C_FOREGROUND) ; 


UIS$SET FONT(VD_ID, 4, 4, 


’UISSFILL PATTERNS’); 


UIS$SET FILL _PATTERN(VD_ID, 4, 4, PATT$C_FOREGROUND) ; 


UISDCSPLOT(WD_ID, 1, 0, 
RETPWIDTH, 0, 0, QO); 


X_ARRAY [1] 
X_ ARRAY [2] 
X_ ARRAY [3] 
X_ ARRAY [4] 


Y_ARRAY[1] 
Y_ ARRAY [2] 
Y_ARRAY [3] 
Y ARRAY [4] 


= 
e 


RETPWIDTH DIV 4; 
X ARRAY[1]; 
RETPWIDTH DIV 2; 
X_ARRAY([3]; 


RETPHEIGHT DIV 3; 


(RETPHEIGHT DIV 3), 


Y_ARRAY[{1] + (RETPWIDTH DIV 4); 


Y_ARRAY [2]; 
Y_ARRAY [1]; 


UISDCSPLOT_ARRAY(WD_ID, 2, 4, X_ARRAY, Y_ARRAY); 


UISDCS$PLOT(WD_ID, 4, X_ARRAY[2], Y_ARRAY[2], 
Y_ARRAY[2]+(RETPHEIGHT DIV 7), X_ARRAY[3], Y_ARRAY[3]); 


UISDC$PLOT(WD_ID, 4, 
((X_ARRAY[2] + X_ARRAY[3]) 
((X_ARRAY[2] + X_ARRAY[3]) 
((X_ARRAY[2] + X_ARRAY[3]}) 


UISDCSCIRCLE(WD_ID, 3, RETPWIDTH-150, RETPHEIGHT-150, 


X ARRAY [1] 
X ARRAY [2] 
X_ARRAY [3] 
X_ARRAY [4] 
X_ARRAY [5] 
X ARRAY [6] 
X_ARRAY [7] 
X ARRAY [8] 


ee ee ee oe ee oe ee. ee 


RETPWIDTH-100; 
RETPWIDTH-50; 

RETPWIDTH-250; 
RETPWIDTH-200; 
RETPWIDTH-150; 
RETPWIDTH-150; 
RETPWIDTH-150; 
RETPWIDTH-150; 


RETPWIDTH, 


(RETPHEIGHT DIV 3), 


((3*RETPWIDTH) DIV 8), 


((X_ARRAY[2] + X_ARRAY[3]) DIV 2) - 20, Y_ARRAY[1], 
DIV 2) - 20, Y_ARRAY[1] + 80, 

DIV 2) + 20, ¥Y ARRAY[1] + 80, 

DIV 2) + 20, Y ARRAY[1]); 


50); 


Y_ARRAY [1] 
Y_ARRAY [2] 
Y ARRAY [3] 
Y_ARRAY [4] 
Y_ ARRAY [5] 
Y_ARRAY [6] 
Y ARRAY[7] 


Y_ ARRAY [8] 


ft fl 
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RETPHEIGHT-150,; 
RETPHEIGHT~-150; 
RETPHEIGHT~-150; 


= RETPHEIGHT-150; 


RETPHEIGHT-100; 


= RETPHEIGHT-50; 


ae 


RETPHEIGHT-200; 
RETPHEIGHT-250; 


UISDCSLINE_ARRAY(WD_ID, 3, 8, X_ARRAY, Y_ARRAY) ; 


UISDCS$SET_CHAR SIZE(WD_ID, 0, 6, ’G’, 15, 20); 


UISDCSTEXT(WD_ID, 6, ’Have a Nice Day!’, 50, RETPHEIGHT-50); 


READLN (INPUT, I); 


END. 
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G.2 The Annotated Pascal Program 


This section shows the annotated program: 


[INHERIT (’SYSSLIBRARY:UISENTRY.PEN’ ,’ SYSSLIBRARY: UISUSRDEF .PEN’, 
’SYSSLIBRARY : STARLET .PEN’ ) J 


COPYRIGHT © 1989 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF {ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


} 
PROGRAM HOUSE (INPUT, OUTPUT) ; 


ci ta et et mt et i eR A I pn mt eA ey ttn ty iy 


VAR 

vVCM ID, WD_ID, VD_ID : UNSIGNED; 
RETWIDTH,RETHEIGHT : REAL; 

RETRESOLX, RETRESOLY : REAL; 

RETPWIDTH, RETPHEIGHT : INTEGER; 

MAX X, MAX Y : REAL; 

CHAR WIDTH, CHAR HEIGHT : INTEGER; 

I: CHAR; 

SCALING : BOOLEAN; 

RED COLORS, GREEN COLORS, BLUE COLORS : ARRAY {1..6] OF REAL; 
X_ ARRAY, Y_ARRAY : ARRAY [1..20] OF INTEGER; 


BEGIN 

{ sUIS% This may be emulated using X$DISPLAY WIDTH, X$DISPLAY_WIDTHMM, 
XSDISPLAY_ HEIGHT, and XSDISPLAY_ HEIGHTMM. } UISSGET DISPLAY SIZE 

(’ SYSSWORKSTATION’ , RETWIDTH, RETHEIGHT, RETRESOLX, RETRESOLY, RETPWIDTH, 
RETPHEIGHT) ; 


MAX X := 22.0 * RETRESOLX; 
MAX Y := 22.0 * RETRESOLY; 


{ S$UIS% Color maps may be created by using the X$ALLOC_COLOR_CELLS. } 

VCM_ID :* UISS$CREATE COLOR_MAP (6) ; 

{ %UIS% No equivalent routine exists. } 

VD_ID := UISSCREATE_DISPLAY(0.0,0.0,MAX_X, MAX _Y, RETPWIDTH, RETPHEIGHT 
VCM_ID) ; 

RED COLORS [1] := 1.0; 

GREEN COLORS[1] := 1.0; 

BLUE_COLORS [1] := 1.0; 


RED COLORS[2] := 0.0; 
GREEN COLORS[2] := 0.0; 
BLUE_COLORS[2] := 0.0; 


RED COLORS[3] := 0.0; 
GREEN COLORS[3] := 1.0; 
BLUE COLORS[3] := 0.0; 


RED COLORS [4] := 1.0; 
GREEN COLORS [4] = 0.0; 
BLUE _COLORS[4] := 0.0; 


G4 
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RED COLORS[5] := 1.0; 
GREEN COLORS[5] := 1.0; 
BLUE _COLORS[5] := 0.0; 
RED COLORS[6] := 0.0; 
GREEN COLORS[6] := 0.0; 
BLUE _COLORS[6] := 0.0; 


{ SUIS% UISSSET COLOR is equivalent to X$STORE_COLOR. } 
{ SUIS% UISSSET COLORS is equivalent to X$STORE_ COLORS. } 
UISSSET_ COLORS (VD_ID, 0, 6, RED COLORS, GREEN COLORS, BLUE COLORS) ; 


{ SUISt Please see information on virtual displays. } 
WD_ID := UISSCREATE WINDOW (VD_ID, ’SYSSWORKSTATION’,’Have A Nice Day’); 


{  %UIS% UISS$SET WRITING INDEX is similar to X$SET_FOREGROUND or 
XSCHANGE GC. } 

ULSS$SET WRITING INDEX(VD_ID, 0, 1, 2); 

{  %UIS% UISSSET WRITING INDEX is similar to X$SET_FOREGROUND or 
X$CHANGE GC. } 

UIS$SET_WRITING_INDEX(VD_ID, 0, 2, 3); 

{  %UIS% UISS$SET WRITING INDEX is similar to X$SET_FOREGROUND or 
X$CHANGE GC. } 

UIS$SET WRITING INDEX(VD ID, 0, 3, 4); 

{  %UIS% UIS$SET WRITING INDEX is similar to X$SET_FOREGROUND or 
XSCHANGE GC. } 

UIS$SET WRITING _INDEX(VD_ID, 0, 4, 5); 


{ SUIS% UISSSET FONT is similar to XS$SET_ FONT. The font ID is obtained 
from X$LOAD FONT. } 

UISSSET FONT(VD_ID, 1, 1, ‘’UISS$FILL_ PATTERNS’ ) ; 

{ $UIS% UIS fill patterns are equivalent to STIPPLE patterns in X11; use 
XSSET_STIPPLE or XSCHANGE | Gc. } 

UISSSET | FILL PATIERN (VD_ ID, 1, 1, PATTS$C_FOREGROUND) ; 

{ SUIS% UISSSET FONT is similar to X$SET FONT. The font ID is obtained 
from X$LOAD FONT. } 

UISS$SET FONT(VD_ID, 2, 2, ‘UIS$FILL_PATTERNS’ ) ; 

{ SUIS% UIS fill patterns are equivalent to STIPPLE patterns in X11; use 
XSSET_STIPPLE or X$CHANGE GC. } 

UISSSET FILL PATTERN (VD_ID, 25 24 PATTSC_FOREGROUND) ; 

{ SUIS% UISSSET FONT is similar to XS$SET_FONT. The font ID is obtained 
from X$LOAD FONT. } 

UISS$SET_ FONT(VD_ID, 3, 3, ‘UIS$FILL_PATTERNS’ ) ; 

{ SUIS% UIS fill patterns are equivalent to STIPPLE patterns in X11; use 
XSSET_ STIPPLE or XS$CHANGE GC. } 

UISSSET | FILL PATTERN(VD_ID, 3, 3, PATTSC |_FOREGROUND) ; 

{ SUIS% UISSSET_FONT is similar to X$SET | FONT. The font ID is obtained 
from XS$LOAD_FONT. 7 

UISSSET_FONT(VD_ID, 4, 4, ‘UISSFILL PATTERNS’ ) ; 

{ SUIS% UIS fill patterns are equivalent to STIPPLE patterns in X11; use 
X$SET_STIPPLE or X$CHANGE GC. } 

UISSSET_FILL_PATTERN(VD_ID, 4, 4, PATT$C_FOREGROUND) ; 


{  %UIS% UISDCS$PLOT is similar to X$DRAW_LINE, X$SRAW_LINES, or 
X$DRAW POINT. } 
UISDCSPLOT(WD_ID, 1, 0, (RETPHEIGHT DIV 3), RETPWIDTH, (RETPHEIGHT DIV 3), 
RETPWIDTH, 0, 0, 0); 


X_ARRAY[1] := RETPWIDTH Div 4; 


X_ARRAY[2] := X_ARRAY[1]; 

X ARRAY[3] := RETPWIDTH DIV 2; 

X_ARRAY[4] := X_ARRAY[3]; 

Y_ARRAY[1] := RETPHEIGHT DIV 3; 

Y_ARRAY[2] := Y_ARRAY[1] + (RETPWIDTH DIV 4); 
Y ARRAY[3] := Y ARRAY[2]; 

Y_ARRAY[4] := Y_ARRAY[1]; 


{  %UIS% UISDCS$PLOT is similar to X$DRAW LINE, X$SRAW LINES, or 
XSDRAW POINT. } 

{  %UIS% UISDCS$PLOT_ARRAY is similar to X$DRAW_LINE, X$DRAW_LINES, or 
X$DRAW POINT. } 

UISDCSPLOT_ARRAY(WD ID, 2, 4, X_ARRAY, Y_ ARRAY) ; 
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{ SUIS% UISDCS$PLOT is similar to XS$DRAW_LINE, X$SRAW_LINES, or 
XSDRAW POINT. } 
UISDCSPLOT(WD_ID, 4, X_ARRAY[2], Y_ARRAY[2], ((3*RETPWIDTH) DIV 8), 
Y_ARRAY[2]+(RETPHEIGHT DIV 7), X_ARRAY[3], Y_ARRAY[3]) ; 


{ %UIS% UISDCS$PLOT is similar to X$DRAW_LINE, X§$SRAW_LINES, or 
XSDRAW __ POINT. } 
UISDC$PLOT(WD ID, 4, ((X_ARRAY[2] + X_ARRAY[3]) DIV 2) - 20, Y_ARRAY[1], 
((X_. ARRAY [2] + X ARRAY[3]) DIV 2) - 20, Y_ARRAY[1] + 80, 
((X_. ARRAY[2] + X _ ARRAY [3]) DIV 2) + 20, Y_ARRAY[1] + 80, 
((X_ARRAY[2] + X ARRAY [3]) DIV 2) + 20, Y_ARRAY[1]); 


{ SUIS% UISDCSCIRCLE is similar to XSDRAW_ARC. } 
UISDCS$CIRCLE (WD_ID, 3, RETPWIDTH-150, RETPHEIGHT-150, 50); 


X_ ARRAY[1] := RETPWIDTH-100; 
X ARRAY[2] := RETPWIDTH-50; 
X_ARRAY[3] := RETPWIDTH-250; 
X ARRAY[4] := RETPWIDTH-200; 
X ARRAY[5] := RETPWIDTH-150; 
X ARRAY[6] := RETPWIDTH-150; 
X ARRAY[7] := RETPWIDTH-150; 
X ARRAY[8] := RETPWIDTH-150; 
Y_ARRAY[1] := RETPHEIGHT-150; 
Y_ARRAY[2] := RETPHEIGHT-150; 
Y_ARRAY[3] := RETPHEIGHT-150; 
Y ARRAY[4] := RETPHEIGHT-150; 
Y ARRAY[5] := RETPHEIGHT-100; 
Y_ARRAY[6] := RETPHEIGHT-50; 
Y_ARRAY[7] := RETPHEIGHT-200; 
Y_ARRAY[8] := RETPHEIGHT-250; 


{ SUIS% UISDCSLINE is similar to XS$DRAW_SEGMENT or X$DRAW_POINT. } 
{ SUIS% UISDCSLINE ARRAY is similar to XSDRAW_ SEGMENTS or  XSDRAW__ POINTS. 
UISDCS$LINE_ ARRAY (WD_ID, 3, 8, X_ARRAY, Y¥_ARRAY) ; 


{ SUIS% X11 does not provide text scaling. } 
UISDC$SET_CHAR SIZE(WD_ID, 0, 6, ’G’, 15, 20); 


{ %UIS% UISDCSTEXT is similar to X$DRAW_TEXT. } 
UISDCSTEXT (WD_ID, 6, ‘Have a Nice Day!’, 50, RETPHEIGHT-50) ; 


READLN (INPUT, I); 


END. 


[INHERIT (’ SYSSLIBRARY:UVUISENTRY.PEN’ ,’SYSSLIBRARY:UVUISUSRDEF .PEN’, 
’ SYSSLIBRARY: STARLET .PEN’ ) J 


COPYRIGHT © 1989 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED . 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


} 
PROGRAM HOUSE (INPUT, OUTPUT) ; 


oe i in i ty tn etn tn tn tn ot tn 
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VAR 
VCM_ID, WD_ID, VD_ID : UNSIGNED; 

RETWIDTH, RETHEIGHT : REAL; 

RETRESOLX, RETRESOLY : REAL; 

RETPWIDTH, RETPHEIGHT : INTEGER; 

MAX X, MAX Y : REAL; 

CHAR WIDTH, CHAR HEIGHT : INTEGER; 

I: CHAR; 

SCALING : BOOLEAN; 

RED COLORS, GREEN_COLORS, BLUE COLORS : ARRAY [1..6] OF REAL; 
X_ARRAY, Y_ARRAY : ARRAY [1..20] OF INTEGER; 


BEGIN 

{ SUIS This may be emulated using X$DISPLAY WIDTH, 

XSDISPLAY WIDTHMM, XSDISPLAY HEIGHT, and XSDISPLAY HEIGHTMM. } 

UISSGET DISPLAY SIZE (’ SYSSWORKSTATION’ , RETWIDTH, RETHEIGHT, RETRESOLX, 
RETRESOLY, RETPWIDTH, RETPHEIGHT) ; 


MAX X := 22.0 * RETRESOLX; 
MAX_Y := 22.0 * RETRESOLY; 


{ SUIS% Color maps may be created by using the X$ALLOC_COLOR_CELLS. } 

VCM_ID := UISSCREATE COLOR MAP (6) ; 

{ SUIS% No equivalent routine exists. } 

VD_ID := UISSCREATE_DISPLAY(0.0,0.0,MAX X, MAX_Y, RETPWIDTH, RETPHEIGHT, 
VCM_ID); 

RED COLORS [1] := 1.0; 

GREEN COLORS[1] := 1.0; 

BLUE _COLORS[1] := 1.0; 


RED _COLORS[2] := 0.0; 
GREEN COLORS[2] := 0.0; 
BLUE _COLORS[2] := 0.0; 


RED COLORS[3] := 0.0; 
GREEN COLORS[3] := 1.0; 
BLUE_COLORS[3] := 0.0; 


RED COLORS[4] := 1.0; 
GREEN COLORS[4] := 0 
BLUE_COLORS[4] := 0.0; 


RED COLORS[5] := 1. 
GREEN COLORS[5] := 
BLUE_COLORS[5] := 0.0; 


RED COLORS[6] := 0.0; 
GREEN COLORS[6] := 0.0; 
BLUE COLORS[{6] := 0.0; 


{  %UIS% UISS$SET COLOR is equivalent to X$STORE_ COLOR. } 
{  %UIS% UISS$SET COLORS is equivalent to X$STORE_ COLORS. } 
UIS$SET_COLORS(VD_ID, 0, 6, RED COLORS, GREEN_COLORS, BLUE COLORS) ; 


{ %UIS% Please see information on virtual displays. } 
WD_ID := UISSCREATE_WINDOW(VD_ID, 'SYSSWORKSTATION’,’Have A Nice Day’); 


{  %UIS% UISSWRITING INDEX is similar to X$SET_FOREGROUND or X$CHANGE_GC} 
UISS$SSET WRITING _INDEX(VD_ID, 0, 1, 2); 
{ %SUIS% UISSWRITING_INDEX is similar to XS$SET_FOREGROUND or XSCHANGE CG} 
UISSSET WRITING INDEX (VD_ID, OF. - 25. 3% 
{ SUIS% UISSWRITING INDEX is similar to X$SET_ FOREGROUND or X$CHANGE CG} 
UISS$SET WRITING _INDEX(VD_ID, 0, 3, 4); 
{ SUIS% UISSWRITING INDEX is similar to X$SET_FOREGROUND or XSCHANGE CG} 
UISS$SET WRITING INDEX(VD_ID, 0, 4, 5); 
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{ SUISS UISSSET | FONT is similar to X$SET | FONT. The font ID is 

obtained from X$LOAD | FONT. } 

UIS$SET FONT (VD_ID, ea ‘UISSFILL_ PATTERNS’ ) ; 

{ SUISS UIS fill patterns are equivalent to STIPPLE patterns in X11; use 
UISS$SET FILL PATTERN(VD_ID, 1, 1, PATT$C_FOREGROUND) ; 

{ ZUISS UISS$SET | FONT is similar to X$SET | FONT. The font ID is 

obtained from XSLOAD _ FONT. } 

UISSSET_FONT(VD_ID, 2, 2; UISSFILL _ PATTERNS’ ) ; 

{ $UIS% UIS fill patterns are equivalent to STIPPLE patterns in X11; use 
UISS$SET_FILL PATTERN (VD_ID, Le ey PATT$C_FOREGROUND) ; 

{ SUIS% UISSSET_ FONT is similar to XS$SET_FONT. The font ID is 

obtained from X$LOAD FONT. } 

UISSSET_FONT(VD_ID, 3, 3, ’UISS$FILL_ PATTERNS’ ) ; 

{ SUIS UIS £111 patterns are equivalent to STIPPLE patterns in X11; use 
UIS$SET FILL _PATTERN(VD_ID, 3, 3, PATTS$C_FOREGROUND) ; 

{ SULSS UIS$SET | FONT is similar to X$SET | FONT. The font ID is 

obtained from X$LOAD FONT. } 

UISS$SET_FONT(VD_ID, 4, 4, ‘UISSFILL_ PATTERNS’ ) ; 

{ SUIS% UIS fill patterns are equivalent to STIPPLE patterns in X11; use ] 
UISSSET FILL PATTERN(VD_ID, 4, 4, PATTIS$C_FOREGROUND) ; 


{  %UIS% UISDCSPLOT is similar to X$DRAW_ LINE, X$SRAW_LINES, or 

X$DRAW POINT. } 

UISDCSPLOT(WD_ID, 1, 0, (RETPHEIGHT DIV 3), RETPWIDTH, (RETPHEIGHT DIV 3), 
RETPWIDTH, 0, 0, 0); 


X_ARRAY[1] := RETPWIDTH DIV 4; 

X ARRAY[2] := X_ARRAY(1]; 

X ARRAY[3] := RETPWIDTH DIV 2; 

X ARRAY[4] := X_ARRAY[3]; 

Y_ARRAY[1] := RETPHEIGHT DIV 3; 

Y ARRAY[2] := Y ARRAY[1] + (RETPWIDTH DIV 4); 
Y_ARRAY[3] := Y_ARRAY[2]; 

Y ARRAY[4] := Y_ARRAY[1]; 


{  %UIS% UISDCSPLOT is similar to X$DRAW_LINE, X$SRAW_LINES, or 
X$DRAW_POINT. } 

{  %UIS% UISDCS$PLOT_ARRAY is similar to X$DRAW_LINE, X$DRAW_LINES, 
or X$DRAW_POINT. } 

UISDC$PLOT_ARRAY(WD_ID, 2, 4, X_ARRAY, Y_ ARRAY); 


{ SUIS% UISDCSPLOT is similar to X$DRAW_LINE, X$SRAW_LINES, or 
XSDRAW POINT. } 
UISDCSPLOT (WD_ID, 4, X_ARRAY [2], Y_ARRAY[2], ((3*RETPWIDTH) DIV 8), 
Y_ARRAY[2]+(RETPHEIGHT DIV 7), X_ARRAY[3], Y_ARRAY[3]); 


{ %UIS% UISDCSPLOT is similar to XS$DRAW_LINE, X$SRAW_LINES, or 

XSDRAW POINT. } 

UILSDCSPLOT (WD_ID, 4, ( (X_ARRAY [2] + X_ARRAY[3]) DIV 2) - 20, Y_ARRAY[1], 
((X_ARRAY[2] + X_ARRAY[3]) DIV 2) - 20, Y_ARRAY[1] + 80, 
((X_ARRAY[2] + X_ARRAY[3]) DIV 2) + 20, Y_ARRAY[1] + 80, 
((X_ARRAY[2] + X_ARRAY[3]) DIV 2) + 20, Y_ARRAY[1]); 


{ %SUIS% UISDCSCIRCLE is similar to XSDRAW_ARC. } 
UISDCS$CIRCLE(WD_ID, 3, RETPWIDTH-150, RETPHEIGHT-150, 50); 


X_ ARRAY [1] := RETPWIDTH-100; 
X_ARRAY [2] := RETPWIDTH-50; 

X_ARRAY[3] := RETPWIDTH-250; 
X ARRAY[4] := RETPWIDTH-200; 
X ARRAY[5] := RETPWIDTH-150; 
X ARRAY[6] := RETPWIDTH-150; 
X ARRAY[7] := RETPWIDTH-150; 
X ARRAY[8] := RETPWIDTH-150; 


Y ARRAY [1] 
Y ARRAY [2] 
Y_ ARRAY [3] 
Y_ ARRAY [4] 
Y ARRAY [5] 
Y ARRAY [6] 
Y ARRAY [7] 
Y_ ARRAY [8] 


{  %UIS% 
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RETPHEIGHT-150; 
RETPHEIGHT-150; 
RETPHEIGHT-150; 
RETPHEIGHT-150; 
RETPHEIGHT-100; 
RETPHEIGHT-50; 

RETPHEIGHT-200; 
RETPHEIGHT-250; 


UISDCSLINE is similar to X$DRAW_SEGMENT or XS$DRAW_POINT. } 
{  %UIS% UISDCSLINE ARRAY is similar to X$DRAW_SEGMENTS or X$DRAW POINTS. 
UISDC$LINE_ARRAY(WD_ID, 3, 8, X_ARRAY, Y_ARRAY) ; 


{ SUIS% X11 does not provide text scaling. } 
UISDCSSET CHAR_SIZE(WD_ID, 0, 6, 'G’, 15, 20); 


{ SUIS% UISDCSTEXT is similar to XSDRAW TEXT. } 
UISDCSTEXT(WD_ID, 6, ’Have a Nice Day!’, 50, RETPHEIGHT-50) ; 


READLN (INPUT, I); 


END. 
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G.3 The Summary Report 


This section shows the Summary Report the Annotator produced for the 
Pascal program it annotated: 


UISDC_HOUSE.LOG 
Date ;: 23-MAR-90, Time : 16:21:34 


This report is the result of searching of the following files: 
UISDC_HOUSE.PAS 


searching for UIS calls within programs. A summary will 
appear at the end of this report. 


>>> Examining : WORK2: [SMITH.MIG]UISDC_HOUSE.PAS 
=== Creating : WORK2: [SMITH.MIG]UISDC_HOUSE.PAS 


Found: 1 - UISSCREATE_COLOR_MAP 
Color maps may be created by using the XSALLOC_COLOR_CELLS. 


Found: 1 - UISSCREATE DISPLAY 
No equivalent routine exists. 


Found: 1 - UISSCREATE_ WINDOW 
Please see information on virtual displays. 


Found: 1 - UIS$GET_DISPLAY_SIZE 
This may be emulated using XSDISPLAY WIDTH, XS$DISPLAY_WIDTHMM, 
X$DISPLAY_HEIGHT, and X$DISPLAY_HEIGH 


Found: 1 - UISSSET_ COLOR 
UISS$SET_ COLOR is equivalent to XS$STORE COLOR. 


Found: 1 - UISSSET COLORS 
UISS$SET COLORS is equivalent to X$STORE_ COLORS. 


Found: 4 - UIS$SET FILL PATTERN 
UIS fill patterns are equivalent to STIPPLE patterns in X11; use 
X$SET_STIPPLE or X$CHANGE_GC 


Found: 4 - UISSSET FONT 
UISSSET FONT is similar to X$SET_FONT. The font ID is obtained fron 
X$LOAD_FONT. 


Found: 4 - UIS$SET WRITING INDEX 
UIS$SET_WRITING_INDEX is similar to X$SET_FOREGROUND or X$CHANGE_G{ 


Found: 1 - UISDCSCIRCLE 
UISDCSCIRCLE is similar to XS$DRAW_ARC. 


Found: 1 - UISDCSLINE 
UISDCSLINE is similar to X$DRAW_SEGMENT or XSDRAW POINT. 


Found: 1- UISDCSLINE_ ARRAY 
UISDCSLINE_ARRAY is similar to XSDRAW_SEGMENTS or XS$DRAW_ POINTS. 


Found: 4 - UVISDCSPLOT 
UISDCSPLOT is similar to XS$DRAW_LINE, X$SRAW_LINES, or XSDRAW POIN) 


Found: 1 - UISDCSPLOT_ ARRAY 
UISDCSPLOT_ ARRAY is similar to XSDRAW_LINE, X$DRAW_LINES, or 
X$DRAW_ POINT. 


Found: 1 - UISDCS$SET CHAR_SIZE 
X11 does not provide text scaling. 


Found: 1 - UISDCSTEXT 
UISDCSTEXT is similar to X$DRAW_TEXT. 


* Total Lines read in : 142 


* Total UIS calls (of any type) detected : 25 


G-10 


Sample Pascal Program (UISDC_HOUSE.PAS) 


xxx Summary Information neem eee sees e eee ewww ne mee eRe 


* Total UIS calls (of any type) - all files : 25 
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